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)))
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 17 2008
EXTENSIONS
Definition clarified by R. J. Mathar and M. F. Hasler, Nov 27 2010
STATUS
approved