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 A061375 #18 Jul 02 2018 01:41:17 %S A061375 1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,7,8,8,9,9,9,10,10,10,11,11,12,12, %T A061375 12,13,13,13,14,14,15,15,15,16,16,16,17,17,17,18,18,19,19,19,20,20,20, %U A061375 21,21,22,22,22,23,23,23,24,24,25,25,25,26,26,26,27 %N A061375 Integer part of geometric mean of first n positive integers. %C A061375 a(n) < (n+1)/2 for n > 1 by the AM-GM (arithmetic-geometric mean) inequality. %C A061375 Also, largest integer m such that m^n <= n!. - _M. F. Hasler_, Mar 07 2009 %H A061375 Harry J. Smith, <a href="/A061375/b061375.txt">Table of n, a(n) for n = 1..1000</a> %F A061375 a(n) = floor((n!)^(1/n)); (n!)^(1/n) ~ e^(-1) (n+log(2 Pi n)/2) + O(log(n)^2/n) as n -> infinity. %e A061375 a(7) = floor((7!)^(1/7)) = floor(5040^(1/7)) = floor(3.380015...) = 3. %t A061375 Table[IntegerPart[GeometricMean[Range[n]]],{n,80}] (* _Harvey P. Dale_, Mar 05 2014 *) %o A061375 (PARI) A061375(n)=sqrtn(n!,n)\1 \\ _M. F. Hasler_, Mar 07 2009 %o A061375 (PARI) { default(realprecision, 100); f=1; for (n=1, 1000, f*=n; write("b061375.txt", n, " ", sqrtn(f, n)\1) ) } \\ _Harry J. Smith_, Jul 22 2009 %K A061375 nonn %O A061375 1,4 %A A061375 _Amarnath Murthy_, May 02 2001 %E A061375 Edited by _Franklin T. Adams-Watters_, May 18 2010