%I #5 Jul 09 2019 11:13:24
%S 1,2,1,2,0,-2,3,2,-1,-4,0,-4,5,10,-3,-2,0,-6,-1,-6,3,8,-8,-8,9,18,1,
%T 10,-8,-26,11,2,-1,4,-8,-12,5,10,-11,-10,8,18,-1,10,-13,-32,8,0,9,34,
%U 1,18,-8,-34,27,18,-17,-36,-8,-36,29,74,-35,-18,8,-6,7,10,-13,-24
%N Expansion of Product_{k>=0} (1 + x^(2^k) - x^(2^(k+1)))^2.
%F G.f. A(x) satisfies: A(x) = (1 + x - x^2)^2 * A(x^2).
%F a(n) = Sum_{k=0..n} A005590(k+1)*A005590(n-k+1).
%t nmax = 69; CoefficientList[Series[Product[(1 + x^(2^k) - x^(2^(k + 1)))^2, {k, 0, Floor[Log[2, nmax]] + 1}], {x, 0, nmax}], x]
%t nmax = 69; A[_] = 1; Do[A[x_] = (1 + x - x^2)^2 A[x^2] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
%Y Cf. A002487, A005590, A309043.
%K sign
%O 0,2
%A _Ilya Gutkovskiy_, Jul 09 2019
|