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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9709  -0.7166  0.2830  -0.9401
s.e.  0.0051   0.0132  0.0199   0.0069

sigma^2 estimated as 356823126:  log likelihood = -34739.23,  aic = 69488.45