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,3

Links

Table of n, a(n) for n=0..20.

Mathematica

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

Crossrefs

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

Sequence in context: A122940 A077386 A209903 * A330535 A004140 A271612

Adjacent sequences: A330511 A330512 A330513 * A330515 A330516 A330517

Keyword

nonn

Author

Ilya Gutkovskiy, Dec 17 2019

Status

approved