OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..400
MATHEMATICA
lst={}; k=9; Do[a=n!-n^k; AppendTo[lst, a], {n, k, 29}]; lst
Table[n!-n^9, {n, 0, 30}] (* Harvey P. Dale, Sep 18 2020 *)
PROG
(PARI) a(n)=n!-n^9 \\ Charles R Greathouse IV, Oct 05 2011
(Magma) [Factorial(n)-n^9: n in [0..20]]; // Vincenzo Librandi, Oct 06 2011
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 20 2008
EXTENSIONS
Corrected offset from 9 to 0 and extended by Vincenzo Librandi, Oct 06 2011
STATUS
approved