OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..366
FORMULA
MATHEMATICA
nmax = 20; Rest[CoefficientList[Series[24*x*Sum[k*DivisorSigma[13, k]*x^(k-1), {k, 1, nmax}]/(1 - 24*Sum[DivisorSigma[13, k]*x^k, {k, 1, nmax}]), {x, 0, nmax}], x]] (* Vaclav Kotesovec, Jul 09 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jul 09 2017
STATUS
approved