OFFSET
0,2
FORMULA
G.f.: Product_{k>=0} 1/(1 - 2*x^(2^k)).
MATHEMATICA
nmax = 34; A[_] = 1; Do[A[x_] = A[x^2]/(1 - 2 x) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
nmax = 34; CoefficientList[Series[Product[1/(1 - 2 x^(2^k)), {k, 0, Floor[Log[2, nmax]] + 1}], {x, 0, nmax}], x]
PROG
(PARI) seq(n)=Vec(1/prod(k=0, logint(n, 2), 1 - 2*x^(2^k) + O(x*x^n))) \\ Andrew Howroyd, Aug 14 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 14 2019
STATUS
approved