login
A278406
G.f.: x^2 * f''(x), where f(x) = Product_{k>=1} 1 / (1 - x^k).
2
0, 0, 4, 18, 60, 140, 330, 630, 1232, 2160, 3780, 6160, 10164, 15756, 24570, 36960, 55440, 80784, 117810, 167580, 238260, 332640, 462924, 635030, 869400, 1174800, 1583400, 2113020, 2810808, 3706780, 4875480, 6363060, 8282208, 10711008, 13811820, 17710770
OFFSET
0,3
LINKS
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