A122893 Position of largest coefficient of n-th self-composition of (x+x^2) for n>=0.

1, 1, 2, 5, 9, 19, 37, 74, 147, 294, 587, 1175, 2349, 4698, 9396, 18791, 37582

Offset

0,3

Comments

What is the limit a(n)/2^n = 0.573... ? Originated by Ralf Stephan in A092123 as the position of largest coefficient in the expansion of P(0)=x, P(n+1)=P(n)*[1+P(n)] (equivalent definition).

Links

Table of n, a(n) for n=0..16.

Mathematica

P[n_] := P[n] = If[n < 1, x, P[n - 1]*(P[n - 1] + 1)]; Table[p = Expand[CoefficientList[P[n], x]]; Position[p, Max[p]][[1]][[1]] - 1, {n, 0, 12}] (* Vaclav Kotesovec, Nov 08 2018 *)

Crossrefs

Cf. A092123, A122894; A122888.

Sequence in context: A056326 A280247 A261049 * A178841 A214319 A062092

Adjacent sequences: A122890 A122891 A122892 * A122894 A122895 A122896

Keyword

more,nonn

Author

Paul D. Hanna, Sep 19 2006

Extensions

a(14)-a(15) from Vaclav Kotesovec, Nov 08 2018

a(16) from Vaclav Kotesovec, Nov 09 2018

Status

approved