login
A152838
a(0)=1; a(n)=Floor[a(n-1)^n-n^a(n-1)].
3
1, 0, -1, -2, 3, 118, -199068134034785153195409370979964879499768447341765846329146257207125965412281784631240438088
OFFSET
0,4
EXAMPLE
a(1) = 1^1-1^1 = 0. - R. J. Mathar, Jan 08 2009
MATHEMATICA
lst={}; a=1; Do[a=a^n-n^a; AppendTo[lst, Floor[a]], {n, 0, 6}]; lst
KEYWORD
sign
AUTHOR
EXTENSIONS
Indices added to definition, offset corrected - R. J. Mathar, Jan 08 2009
STATUS
approved