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

Coefficients:
          ar1     ma1    sar1     sma1
      -0.2941  0.8175  0.2908  -0.5648
s.e.   0.0240  0.0141  0.0759   0.0670

sigma^2 estimated as 84638453:  log likelihood = -32504.12,  aic = 65018.23