A371493 Expansion of e.g.f. Product_{k>=2} (1 + x^k/k).

1, 0, 1, 2, 6, 44, 210, 1644, 11088, 119664, 1034640, 12372480, 139629600, 1877722560, 25389131040, 395162832960, 6041860070400, 105872058754560, 1864694944465920, 35822359116149760, 705399920144640000, 15048474234019430400, 324762706938629836800, 7566557300438795366400

Offset: 0

Author

Ilya Gutkovskiy, Mar 25 2024

Keywords

• nonn

Crossrefs

Cf. A007838, A032311, A371487.

Programs

Mathematica

nmax = 23; CoefficientList[Series[Product[(1 + x^k/k), {k, 2, nmax}], {x, 0, nmax}], x] Range[0, nmax]!