OFFSET
6,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 6..300
MATHEMATICA
lst={}; k=6; Do[a=n!-n^(n-k); AppendTo[lst, a], {n, k, 29}]; lst
Table[n!-n^(n-6), {n, 6, 30}] (* Harvey P. Dale, Jun 18 2018 *)
PROG
(PARI) a(n)=n!-n^(n-6) \\ Charles R Greathouse IV, Oct 05 2011
(Magma) [Factorial(n)-n^(n-6): n in [6..25]]; // Vincenzo Librandi, Oct 06 2011
CROSSREFS
KEYWORD
sign,easy,less
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 20 2008
STATUS
approved