OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..366
FORMULA
MATHEMATICA
nmax = 20; Rest[CoefficientList[Series[264*x*Sum[k*DivisorSigma[9, k]*x^(k-1), {k, 1, nmax}]/(1 - 264*Sum[DivisorSigma[9, 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