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