|
|
A252730
|
|
a(n) = P_n(n) with P_0(z) = z+1 and P_n(z) = z + P_{n-1}(z)*(P_{n-1}(z)-z) for n>1.
|
|
2
|
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
p:= proc(n) option remember;
z-> z+ `if`(n=0, 1, p(n-1)(z)*(p(n-1)(z)-z))
end:
a:= n-> p(n)(n):
seq(a(n), n=0..8);
|
|
MATHEMATICA
|
p[n_] := p[n] = Function[z, z + If[n == 0, 1, p[n-1][z]*(p[n-1][z] - z)]];
a[n_] := p[n][n];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|