LINKS
Vaclav Kotesovec, <a href="/A161809/b161809_1.txt">Table of n, a(n) for n = 0..10000</a>
Vaclav Kotesovec, <a href="/A161809/b161809_1.txt">Table of n, a(n) for n = 0..10000</a>
editing
approved
Vaclav Kotesovec, <a href="/A161809/b161809_1.txt">Table of n, a(n) for n = 0..10000</a>
nmax = 50; CoefficientList[Series[Exp[Sum[3^(IntegerExponent[k, 3] + 1)*x^k/k, {k, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Nov 01 2024 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
editing
proposed
Partial sums of A309677.
approved
editing