Call:
arima(x = ScienceAndTechnology_FuturisticCocaCola, order = c(1, 0, 1), seasonal = list(order = c(1, 
    1, 1), period = 24))

Coefficients:
         ar1      ma1    sar1     sma1
      0.9493  -0.7406  0.1334  -0.7823
s.e.  0.0099   0.0195  0.0456   0.0375

sigma^2 estimated as 94068211:  log likelihood = -19001.93,  aic = 38013.87