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).
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
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