login
A144767
a(n) = n! - n^(n-6).
1
719, 5033, 40256, 362151, 3618800, 39755749, 476015616, 6164272283, 85702502144, 1269231008625, 19823278260224, 321415531788367, 5245542324301824, 79592116946574941, 794502008176640000, -17031376411242242301, -1887360768561457463296
OFFSET
6,1
LINKS
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
Sequence in context: A361345 A081425 A101797 * A127227 A139177 A064980
KEYWORD
sign,easy,less
AUTHOR
STATUS
approved