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

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

%S 1,1,4,17,112,761,6992,65267,749264,8952097,123035312,1765177435,

%T 28465913320,475981018033,8737060100680,167186734385795,

%U 3446660462332576,73894280818392641,1691674707666258848,40160865451008020651,1009283508170762388536

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

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

%Y Cf. A000111, A203716, A229263, A270294, A270662, A270663, A270664, A270665, A270666, A330515, A330516, A330517.

%K nonn

%O 0,3

%A _Ilya Gutkovskiy_, Dec 17 2019