A270670 E.g.f.: Product_{k>=1} (1 + k*sinh(x^k)).
1, 1, 4, 31, 168, 1841, 18600, 221845, 2655408, 44969041, 703172880, 11894018621, 231354830520, 4504644624793, 100890401218152, 2370351246834901, 55456622199548640, 1400307612079837985, 39002429830457675808, 1058964187034314179181, 32049467535091477285800
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..432
Programs
-
Mathematica
nn = 25; Range[0, nn]! * CoefficientList[Series[Product[1+k*Sinh[x^k], {k, 1, nn}], {x, 0, nn}], x]