1,3
k=2; lst={}; Do[k=n^k-k; AppendTo[lst, Floor[k]], {n, 5}]; lst
Sequence in context: A157586 A042439 A030258 * A112896 A185242 A012806
Adjacent sequences: A154734 A154735 A154736 * A154738 A154739 A154740
sign
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 14 2009