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

1, 1, 4, 17, 112, 761, 6992, 65267, 749264, 8952097, 123035312, 1765177435, 28465913320, 475981018033, 8737060100680, 167186734385795, 3446660462332576, 73894280818392641, 1691674707666258848, 40160865451008020651, 1009283508170762388536

Offset: 0

Author

Ilya Gutkovskiy, Dec 17 2019

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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