OFFSET
0,6
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..2500
S. J. Cyvin, J. Brunvoll, B. N. Cyvin, Enumeration of constitutional isomers of polyenes, J. Molec. Struct. (Theochem) 357, no. 3 (1995) 255-261.
FORMULA
G.f. satisfies A(x) = (W(x)-x)*(1-x)/x-x, where W(x) is g.f. for A001190.
MAPLE
N := 40: G036657 := series(G001190*(1/x-1)-1, x, N); A036657 := n->coeff(G036657, x, n);
MATHEMATICA
terms = 36; A[_] = 0;
Do[A[x_] = x + (1/2) (A[x]^2 + A[x^2]) + O[x]^terms // Normal, {terms}];
CoefficientList[1 + A[x], x] // Differences (* Jean-François Alcover, Oct 24 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved