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

Coefficients:
         ar1      ma1     sar1     sma1
      0.9277  -0.7589  -0.0260  -0.4875
s.e.  0.0121   0.0199   0.0574   0.0547

sigma^2 estimated as 170177274:  log likelihood = -26130.16,  aic = 52270.32