OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..400
Eric Weisstein's World of Mathematics, Power Tower
Wikipedia, Knuth's up-arrow notation
Wikipedia, Tetration
FORMULA
E.g.f.: (x+1)^^7.
MAPLE
f:= proc(n) f(n):= `if`(n=0, 1, (x+1)^f(n-1)) end:
a:= n-> n!*coeff(series(f(7), x, n+1), x, n):
seq(a(n), n=0..25);
MATHEMATICA
f[0] = 1; f[n_] := f[n] = (x + 1)^f[n - 1];
a[n_] := n! SeriesCoefficient[f[7], {x, 0, n}];
Table[a[n], {n, 0, 25}] (* Jean-François Alcover, May 29 2018, from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Oct 19 2016
STATUS
approved