A270597 E.g.f.: 1/(1-x) * Product_{k>0} (1 + sinh(x^k/k)).

1, 2, 5, 21, 98, 575, 3979, 31304, 277248, 2739141, 29898743, 355083014, 4584190984, 63680965127, 949202526375, 15102175351080, 255427113948896, 4573909845546233, 86542053988578763, 1723504067599805402, 36054646740337797072, 790412592781303448523

Offset

0,2

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..446

Formula

a(n) ~ n * A130263(n).

Mathematica

nn=25; Range[0, nn]!*CoefficientList[Series[1/(1-x)*Product[1+Sinh[x^k/k], {k, 1, nn}], {x, 0, nn}], x]

Crossrefs

Cf. A130263, A130268, A218504, A270598.

Sequence in context: A357791 A047104 A319850 * A174080 A337283 A115087

Adjacent sequences: A270594 A270595 A270596 * A270598 A270599 A270600

Keyword

nonn

Author

Vaclav Kotesovec, Mar 20 2016

Status

approved