OFFSET
1,3
MATHEMATICA
k=2; lst={}; Do[k=n^k-k; AppendTo[lst, Floor[k]], {n, 5}]; lst
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 14 2009
STATUS
approved