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

Author

Vaclav Kotesovec, Mar 20 2016

Keywords

• nonn

Links

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

Crossrefs

Cf. A130263, A130268, A218504, A270598.

Programs

Mathematica

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

Formula

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