%I #8 Nov 09 2018 07:17:43
%S 1,1,2,5,9,19,37,74,147,294,587,1175,2349,4698,9396,18791,37582
%N Position of largest coefficient of n-th self-composition of (x+x^2) for n>=0.
%C 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).
%t 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 *)
%Y Cf. A092123, A122894; A122888.
%K more,nonn
%O 0,3
%A _Paul D. Hanna_, Sep 19 2006
%E a(14)-a(15) from _Vaclav Kotesovec_, Nov 08 2018
%E a(16) from _Vaclav Kotesovec_, Nov 09 2018
|