|
%I #22 Sep 08 2022 08:45:07
%S 1,2,3,16,25,216,2401,32768,59049,1000000,19487171,429981696,
%T 815730721,20661046784,576650390625,17592186044416,34271896307633,
%U 1156831381426176,42052983462257059,1638400000000000000
%N Largest power of n <= n!.
%H Alois P. Heinz, <a href="/A074182/b074182.txt">Table of n, a(n) for n = 1..400</a>
%F From _Danny Rorabaugh_, Apr 14 2015: (Start)
%F a(n) = n^A039960(n) = n^(A060151(n)-1).
%F a(n) = n^floor(log_n(n!)) for n>1.
%F a(n) = A074181(n)/n for n>2.
%F (End)
%o (Sage) [1] + [n^(floor(log(factorial(n))/log(n))) for n in range(2, 21)] # _Danny Rorabaugh_, Apr 14 2015
%o (Magma) [1] cat [n^Floor(Log(Factorial(n)) / Log(n)): n in [2..25]]; // _Vincenzo Librandi_, Apr 15 2015
%o (PARI) a(n)=if(n>3,n^logint(n!,n),n) \\ _Charles R Greathouse IV_, Oct 11 2015
%Y Cf. A039960, A060151, A074181.
%K nonn,easy
%O 1,2
%A _Amarnath Murthy_, Aug 31 2002
%E More terms from _Jason Earls_, Sep 02 2002
|
