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

1, 0, -1, 0, -3, 4, -2092, 4372582

Offset

0,5

Comments

The supplied Mathematica and PARI code corresponds to an initial value a(-1)=b(-1)=1 from which a(0)=b(0) is computed to be equal to 1.

The next term is approximately

-1.642155991293887705947531213655414816023738489781202992764677529*10^3948835

and is too large to display here. - Robert G. Wilson v, Nov 27 2010

Links

Table of n, a(n) for n=0..7.

Mathematica

a=1; lst={}; Do[a=a^2-n^a; AppendTo[lst, Floor[a]], {n, 0, 7}]; lst

Prog

(PARI) a=1; for(n=0, 7, print1(floor(a=a^2-n^a)", ")) \\ - R. Gerbicz, Nov 27 2010

Crossrefs

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

Sequence in context: A305169 A316759 A334471 * A165499 A094396 A161838

Adjacent sequences: A153060 A153061 A153062 * A153064 A153065 A153066

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Dec 17 2008

Extensions

Definition clarified by R. J. Mathar, R. Gerbicz and M. F. Hasler, Nov 27 2010

Status

approved