OFFSET
0,3
LINKS
Robert G. Wilson v and Alois P. Heinz, Table of n, a(n) for n = 0..400
FORMULA
E.g.f.: (x+1)^((x+1)^((x+1)^((x+1)^((x+1)^(x+1))))).
MAPLE
a:= n-> n!*coeff(series(subs(x=x+1, x^(x^(x^(x^(x^x))))), x, n+1), x, n):
seq(a(n), n=0..20);
MATHEMATICA
NestList[ Factor[ D[#1, x]] &, x^x^x^x^x^x, 9] /. (x -> 1) (* or quicker *)
Range[0, 20]! CoefficientList[ Series[(1 + x)^(1 + x)^(1 + x)^(1 + x)^(1 + x)^(1 + x), {x, 0, 20}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz and Robert G. Wilson v, Feb 04 2013
STATUS
approved