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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9428  -0.7888  0.2928  -0.9285
s.e.  0.0101   0.0182  0.0221   0.0115

sigma^2 estimated as 120076998:  log likelihood = -33058.66,  aic = 66127.32