OFFSET
0,2
FORMULA
G.f.: (1/(1 - x)^2) * Product_{k>=0} 1 / (1 - x^(3^k)).
a(n) = a(n-3) + a(floor(n/3)) + 2 * a(floor((n-1)/3)) + 3 * a(floor((n-2)/3)) + 2 * a(floor((n-3)/3)) + a(floor((n-4)/3)) for n > 3.
MATHEMATICA
nmax = 50; A[_] = 1; Do[A[x_] = (1 + x + x^2)^2 A[x^3]/(1 - x) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
nmax = 50; CoefficientList[Series[1/(1 - x)^2 Product[1/(1 - x^(3^k)), {k, 0, Floor[Log[3, nmax]] + 1}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 10 2026
STATUS
approved
