A270664 E.g.f.: Product_{k>=1} (1 + tanh(x^k)).

1, 1, 2, 10, 48, 336, 2400, 22240, 220416, 2496256, 30286080, 411725568, 6004838400, 94609106944, 1588301524992, 28577718427648, 546685777182720, 11027370474504192, 234498341381603328, 5253826506085629952, 123695389756163358720, 3039894623920125116416

Offset: 0

Author

Vaclav Kotesovec, Mar 21 2016

Keywords

• nonn

Crossrefs

Cf. A130263, A270294, A270598, A270662, A270665, A270666.

Programs

Mathematica

nmax = 25; Range[0, nmax]! * CoefficientList[Series[Product[(1+Tanh[x^k]), {k, 1, nmax}], {x, 0, nmax}], x]