A330515 Expansion of e.g.f. Product_{k>=1} 1 / (1 - sinh(x^k)).

1, 1, 4, 19, 128, 921, 8912, 87109, 1045200, 13195681, 188639312, 2837096637, 47976425576, 837845855185, 16039578298200, 321739841159317, 6911395312352672, 154749452408120385, 3696709758990757856, 91546190261460505453, 2397650607409036823352

Offset: 0

Author

Ilya Gutkovskiy, Dec 17 2019

Keywords

• nonn

Crossrefs

Cf. A006154, A203716, A229263, A270294, A270662, A270663, A270664, A270665, A270666, A330514, A330516, A330517.

Programs

Mathematica

nmax = 20; CoefficientList[Series[Product[1/(1 - Sinh[x^k]), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!