A076548 Let P(n,x) be defined as follows : P(1,x)=x P(n,x)=P(n-1,x)^2+1, sequence gives maximum value of coefficients of P(n,x).

1, 1, 2, 8, 168, 82432, 26984838984, 4014812889317061030144, 126245518036918986681661715832901630563334656, 174032897098486613071748425543428287864783701646257306342693313602518201638203850484486144

Offset

1,3

Links

Table of n, a(n) for n=1..10.

Example

P(4,x)= x^8 + 4*x^6 + 8*x^4 + 8*x^2 + 5 hence a(4)=8

Mathematica

 f[n_] := Block[{k = n - 2}, Max@ CoefficientList[ Expand@ Nest[(1 + #)^2 &, x, k], x]]; f[1] = 1; Array[f, 10]

Prog

(PARI) b(n)=if(n<2, x, b(n-1)^2+1); a(n)=vecmax(vector(2^n/2/2, i, polcoeff(b(n), 2*i, x)))

Crossrefs

Sequence in context: A175538 A009606 A009682 * A167009 A350808 A009713

Adjacent sequences: A076545 A076546 A076547 * A076549 A076550 A076551

Keyword

nonn

Author

Benoit Cloitre, Oct 19 2002

Status

approved