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,3

Links

Table of n, a(n) for n=0..21.

Mathematica

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

Crossrefs

Cf. A038500, A161809, A377556.

Sequence in context: A165206 A095664 A215773 * A099868 A243228 A112495

Adjacent sequences: A377552 A377553 A377554 * A377556 A377557 A377558

Keyword

nonn

Author

Vaclav Kotesovec, Nov 01 2024

Status

approved