A144767 a(n) = n! - n^(n-6).

719, 5033, 40256, 362151, 3618800, 39755749, 476015616, 6164272283, 85702502144, 1269231008625, 19823278260224, 321415531788367, 5245542324301824, 79592116946574941, 794502008176640000, -17031376411242242301, -1887360768561457463296

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

Sequence in context: A361345 A081425 A101797 * A127227 A139177 A064980

Adjacent sequences: A144764 A144765 A144766 * A144768 A144769 A144770

Keyword

sign,easy,less

Author

Vladimir Joseph Stephan Orlovsky, Sep 20 2008

Status

approved