AUTHOR
_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Dec 14 2008
_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Dec 14 2008
Indices added to definition, offset corrected - _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Jan 08 2009
a(0)=1; a(n)=Floor[n^(n+a(n-1))-a(n-1)^(n+a(n-1))].
1,0,3
nonn,new
sign
Indices added to definition, offset corrected - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 08 2009
a=1;a(n)=Floor[n^(n+a)-a^(n+a)].
1, 0, -4, -1, -115, -1
1,3
lst={}; a=1; Do[a=a^(n+a)-n^(n+a); AppendTo[lst, Floor[a]], {n, 0, 5}]; lst
nonn,new
Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 14 2008
approved