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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9605  -0.7279  0.0755  -0.7971
s.e.  0.0065   0.0147  0.0276   0.0199

sigma^2 estimated as 14539136:  log likelihood = -29798.69,  aic = 59607.39