A377556 E.g.f.: exp(Sum_{n>=1} A006519(n) * x^n).
1, 1, 5, 19, 193, 1181, 13021, 117895, 1868609, 20980153, 348219541, 4940639771, 98898110785, 1632238421269, 34910480911853, 672959412044431, 16733065940227201, 359936040496423025, 9469928134781142949, 229631546862609396643, 6716832478519734558401, 178344294076141938008461
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 25; CoefficientList[Series[Exp[Sum[2^IntegerExponent[k, 2]*x^k, {k, 1, nmax}]], {x, 0, nmax}], x] * Range[0,nmax]!