A270670 E.g.f.: Product_{k>=1} (1 + k*sinh(x^k)).

1, 1, 4, 31, 168, 1841, 18600, 221845, 2655408, 44969041, 703172880, 11894018621, 231354830520, 4504644624793, 100890401218152, 2370351246834901, 55456622199548640, 1400307612079837985, 39002429830457675808, 1058964187034314179181, 32049467535091477285800

Offset: 0

Author

Vaclav Kotesovec, Mar 21 2016

Keywords

• nonn

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..432

Crossrefs

Cf. A130220, A130263, A270294, A270669.

Programs

Mathematica

nn = 25; Range[0, nn]! * CoefficientList[Series[Product[1+k*Sinh[x^k], {k, 1, nn}], {x, 0, nn}], x]