A377555 E.g.f.: exp(Sum_{n>=1} A038500(n) * x^n).

1, 1, 3, 25, 121, 861, 10051, 88453, 972945, 16663321, 205667011, 3069838641, 61038456073, 997387656565, 18623707785411, 426663334715101, 8606752819074721, 192052302116929713, 5139946157328092035, 122142504609497184841, 3172736666738570349081, 94751480557190553846541

Offset: 0

Author

Vaclav Kotesovec, Nov 01 2024

Keywords

• nonn

Crossrefs

Cf. A038500, A161809, A377556.

Programs

Mathematica

nmax = 25; CoefficientList[Series[Exp[Sum[3^IntegerExponent[k, 3]*x^k, {k, 1, nmax}]], {x, 0, nmax}], x] * Range[0,nmax]!