login
A153064
a(n) = floor(b(n)) where b(-1)=2, b(n)=b(n-1)^2-n^b(n-1).
0
2, 4, 15, -32543, 1059046848
OFFSET
-1,1
COMMENTS
a(4) ~ -5.3069609889*10^637609736, and is too large for display. - D. S. McNeil, Nov 28 2010
MATHEMATICA
a=2; lst={}; Do[a=a^2-n^a; AppendTo[lst, Floor[a]], {n, 0, 3}]; lst
PROG
(PARI) print1(a=2); for(n=0, 3, print1(", "floor(a=a^2-n^a)))
KEYWORD
sign
AUTHOR
EXTENSIONS
Definition clarified by R. J. Mathar and M. F. Hasler, Nov 27 2010
STATUS
approved