A153064 a(n) = floor(b(n)) where b(-1)=2, b(n)=b(n-1)^2-n^b(n-1).

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

Links

Table of n, a(n) for n=-1..3.

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

Cf. A153059, A086851, A153060, A098152, A028300, A153061, A153062, A153063

Sequence in context: A264832 A100528 A132483 * A125594 A097542 A277850

Adjacent sequences: A153061 A153062 A153063 * A153065 A153066 A153067

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