OFFSET
0,3
MATHEMATICA
lst={}; a=1; Do[a=a^(n+a)-n^(n+a); AppendTo[lst, Floor[a]], {n, 0, 5}]; lst
CROSSREFS
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