OFFSET
2,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 2..10000
EXAMPLE
a(3)=4 because 4!=24 is the largest factorial not exceeding (3!)^2=36.
MATHEMATICA
s={2}; f1=4; f2=2; k=2; Do[f1=f1*n^2; While[f2<f1, k++; f2=f2*k]; AppendTo[s, k-1], {n, 3, 100}]; s (* Zak Seidov, May 08 2013 *)
PROG
(PARI) A121347(n)= { local(lognf=2*sum(s=1, n, log(s)), k=1) ; while(1, if( sum(s=1, k, log(s))< lognf, k++, return(k-1) ; ) ; ) ; }
{ for(n=2, 80, print1(A121347(n), ", ") ; ) ; } \\ R. J. Mathar, May 12 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Aug 15 2006
EXTENSIONS
a(2) corrected by Jon E. Schoenfield, Aug 27 2006
More terms from R. J. Mathar, May 12 2007
STATUS
approved