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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9579  -0.7370  0.0820  -0.9227
s.e.  0.0068   0.0137  0.0209   0.0097

sigma^2 estimated as 403183935:  log likelihood = -34929.05,  aic = 69868.09