This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A074182 #22 Sep 08 2022 08:45:07 %S A074182 1,2,3,16,25,216,2401,32768,59049,1000000,19487171,429981696, %T A074182 815730721,20661046784,576650390625,17592186044416,34271896307633, %U A074182 1156831381426176,42052983462257059,1638400000000000000 %N A074182 Largest power of n <= n!. %H A074182 Alois P. Heinz, <a href="/A074182/b074182.txt">Table of n, a(n) for n = 1..400</a> %F A074182 From _Danny Rorabaugh_, Apr 14 2015: (Start) %F A074182 a(n) = n^A039960(n) = n^(A060151(n)-1). %F A074182 a(n) = n^floor(log_n(n!)) for n>1. %F A074182 a(n) = A074181(n)/n for n>2. %F A074182 (End) %o A074182 (Sage) [1] + [n^(floor(log(factorial(n))/log(n))) for n in range(2, 21)] # _Danny Rorabaugh_, Apr 14 2015 %o A074182 (Magma) [1] cat [n^Floor(Log(Factorial(n)) / Log(n)): n in [2..25]]; // _Vincenzo Librandi_, Apr 15 2015 %o A074182 (PARI) a(n)=if(n>3,n^logint(n!,n),n) \\ _Charles R Greathouse IV_, Oct 11 2015 %Y A074182 Cf. A039960, A060151, A074181. %K A074182 nonn,easy %O A074182 1,2 %A A074182 _Amarnath Murthy_, Aug 31 2002 %E A074182 More terms from _Jason Earls_, Sep 02 2002