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

Coefficients:
         ar1      ma1     sar1     sma1
      0.9806  -0.8277  -0.1484  -0.4899
s.e.  0.0041   0.0102   0.0269   0.0223

sigma^2 estimated as 2.696e+09:  log likelihood = -37841.65,  aic = 75693.29