OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
FORMULA
a(n) = n*(n-1)*A000041(n).
MATHEMATICA
nmax=60; CoefficientList[Series[x^2*D[Product[1/(1-x^k), {k, 1, nmax}], {x, 2}], {x, 0, nmax}], x]
nmax=60; CoefficientList[Series[Product[1/(1-x^k), {k, 1, nmax}], {x, 0, nmax}], x]*Range[0, nmax]*(Range[0, nmax]-1)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Nov 21 2016
STATUS
approved