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.

Showing 1-2 of 2 results.

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

Original entry on oeis.org

2, 4, 5, 7, 9, 10, 12, 14, 15, 17, 19, 20, 22, 24, 26, 27, 29, 31, 32, 34, 36, 38, 39, 41, 43, 44, 46, 48, 50, 51, 53, 55, 57, 58, 60, 62, 64, 65, 67, 69, 71, 72, 74, 76, 78, 79, 81, 83, 85, 87, 88, 90, 92, 94, 95, 97, 99, 101, 102, 104, 106, 108, 110, 111, 113, 115, 117, 118
Offset: 2

Views

Author

Hugo Pfoertner, Aug 15 2006

Keywords

Examples

			a(3)=4 because 4!=24 is the largest factorial not exceeding (3!)^2=36.
		

Crossrefs

Cf. A121348 [difference between (n!)^2 and the next smaller factorial].

Programs

  • Mathematica
    s={2};f1=4;f2=2;k=2;Do[f1=f1*n^2;While[f2Zak Seidov, May 08 2013 *)
  • 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

Extensions

a(2) corrected by Jon E. Schoenfield, Aug 27 2006
More terms from R. J. Mathar, May 12 2007

A122222 Difference between (n!)^n and the next smaller factorial.

Original entry on oeis.org

2, 96, 291456, 18656179200, 17668969095168000, 67095201210572537856000000, 6721833410207820593461922365440000000, 75658161802407509372174837302453333917696000000000, 365526772920711815200262962616603688918661180831039488000000000000
Offset: 2

Views

Author

Hugo Pfoertner, Sep 25 2006

Keywords

Examples

			a(3)=96 because the difference between (3!)^3=216 and the next smaller factorial 5!=120 is 96.
		

Crossrefs

Programs

  • Mathematica
    s={};m=1;Do[Until[m!>(n!)^n,m++];AppendTo[s,(n!)^n-(m-1)!],{n,2,10}];s (* James C. McMahon, Oct 26 2024 *)

Extensions

a(10) from James C. McMahon, Oct 26 2024
Showing 1-2 of 2 results.