|
%I #16 Sep 08 2022 08:45:38
%S 719,5033,40256,362151,3618800,39755749,476015616,6164272283,
%T 85702502144,1269231008625,19823278260224,321415531788367,
%U 5245542324301824,79592116946574941,794502008176640000,-17031376411242242301,-1887360768561457463296
%N a(n) = n! - n^(n-6).
%H Vincenzo Librandi, <a href="/A144767/b144767.txt">Table of n, a(n) for n = 6..300</a>
%t lst={};k=6;Do[a=n!-n^(n-k);AppendTo[lst,a],{n,k,29}];lst
%t Table[n!-n^(n-6),{n,6,30}] (* _Harvey P. Dale_, Jun 18 2018 *)
%o (PARI) a(n)=n!-n^(n-6) \\ _Charles R Greathouse IV_, Oct 05 2011
%o (Magma) [Factorial(n)-n^(n-6): n in [6..25]]; // _Vincenzo Librandi_, Oct 06 2011
%K sign,easy,less
%O 6,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 20 2008
|
