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

Links

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

Mathematica

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

Crossrefs

Cf. A007838, A032311, A371487.

Sequence in context: A055564 A077259 A319112 * A342986 A136589 A077048

Adjacent sequences: A371490 A371491 A371492 * A371494 A371495 A371496

Keyword

nonn

Author

Ilya Gutkovskiy, Mar 25 2024

Status

approved