A152841 a(0)=1; a(n)=Floor[n^(n+a(n-1))-a(n-1)^(n+a(n-1))].

1, 0, -4, -1, -115, -1

Offset

0,3

Links

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

Mathematica

lst={}; a=1; Do[a=a^(n+a)-n^(n+a); AppendTo[lst, Floor[a]], {n, 0, 5}]; lst

Crossrefs

Cf. A084964, A152832, A152833, A152835, A152836, A152837, A152838, A152839, A152840

Sequence in context: A211341 A280620 A262405 * A125083 A094423 A262404

Adjacent sequences: A152838 A152839 A152840 * A152842 A152843 A152844

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Dec 14 2008

Extensions

Indices added to definition, offset corrected - R. J. Mathar, Jan 08 2009

Status

approved