The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #4 Nov 01 2024 07:14:16
%S 1,1,3,25,121,861,10051,88453,972945,16663321,205667011,3069838641,
%T 61038456073,997387656565,18623707785411,426663334715101,
%U 8606752819074721,192052302116929713,5139946157328092035,122142504609497184841,3172736666738570349081,94751480557190553846541
%N E.g.f.: exp(Sum_{n>=1} A038500(n) * x^n).
%t nmax = 25; CoefficientList[Series[Exp[Sum[3^IntegerExponent[k, 3]*x^k, {k, 1, nmax}]], {x, 0, nmax}], x] * Range[0,nmax]!
%Y Cf. A038500, A161809, A377556.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Nov 01 2024