cp's OEIS Frontend

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.

A121347 Largest number whose factorial is less than (n!)^2.

This page as a plain text file.
%I A121347 #18 Dec 19 2019 02:31:00
%S A121347 2,4,5,7,9,10,12,14,15,17,19,20,22,24,26,27,29,31,32,34,36,38,39,41,
%T A121347 43,44,46,48,50,51,53,55,57,58,60,62,64,65,67,69,71,72,74,76,78,79,81,
%U A121347 83,85,87,88,90,92,94,95,97,99,101,102,104,106,108,110,111,113,115,117,118
%N A121347 Largest number whose factorial is less than (n!)^2.
%H A121347 Chai Wah Wu, <a href="/A121347/b121347.txt">Table of n, a(n) for n = 2..10000</a>
%e A121347 a(3)=4 because 4!=24 is the largest factorial not exceeding (3!)^2=36.
%t A121347 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 *)
%o A121347 (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) ; ) ; ) ; }
%o A121347 { for(n=2,80, print1(A121347(n),", ") ; ) ; } \\ _R. J. Mathar_, May 12 2007
%Y A121347 Cf. A121348 [difference between (n!)^2 and the next smaller factorial].
%K A121347 nonn
%O A121347 2,1
%A A121347 _Hugo Pfoertner_, Aug 15 2006
%E A121347 a(2) corrected by _Jon E. Schoenfield_, Aug 27 2006
%E A121347 More terms from _R. J. Mathar_, May 12 2007