|
|
A179230
|
|
n-th derivative of x^(x^x) at x=1.
|
|
20
|
|
|
1, 1, 2, 9, 32, 180, 954, 6524, 45016, 360144, 3023640, 27617832, 271481880, 2775329232, 31188079272, 350827041000, 4441125248640, 54110311240512, 765546040603584, 9938498593229568, 156934910753107200, 2128783325724881280, 37775147271084647424
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
First term < 0: a(33) = -868875490363254484795699722301440.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
a:= n-> n!*coeff(series(subs(x=x+1, x^(x^x) ), x, n+1), x, n):
|
|
MATHEMATICA
|
NestList[ Factor[ D[ #1, x]] &, x^x^x, 20] /. x -> 1 (* Robert G. Wilson v, Aug 10 2010 *)
Range[0, 22]! CoefficientList[ Series[(1 + x)^(1 + x)^(1 + x), {x, 0, 22}], x] (* Robert G. Wilson v, Feb 03 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Henryk Trappmann (bo198214(AT)gmail.com), Jul 03 2010
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|