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

%I #5 Dec 17 2019 08:41:17

%S 1,1,4,19,128,921,8912,87109,1045200,13195681,188639312,2837096637,

%T 47976425576,837845855185,16039578298200,321739841159317,

%U 6911395312352672,154749452408120385,3696709758990757856,91546190261460505453,2397650607409036823352

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

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

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

%K nonn

%O 0,3

%A _Ilya Gutkovskiy_, Dec 17 2019