A062313 Factorials of nonprime numbers.

1, 24, 720, 40320, 362880, 3628800, 479001600, 87178291200, 1307674368000, 20922789888000, 6402373705728000, 2432902008176640000, 51090942171709440000, 1124000727777607680000, 620448401733239439360000

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n=1,...,100

Mathematica

f[n_]:=(n+1)!/(n!+1); lst={1}; Do[AppendTo[lst, Numerator[f[n]]], {n, 3, 3*4!}]; Union@lst (* Vladimir Joseph Stephan Orlovsky, Oct 21 2009 *)
Table[If[PrimeQ[n], Nothing, n!], {n, 30}] (* Harvey P. Dale, May 07 2023 *)

Prog

(PARI) for(n=1, 30, if(!isprime(n), print1(n!, ", ")))
(PARI) { n=0; f=1; for (m=1, 200, f*=m; if (!isprime(m), write("b062313.txt", n++, " ", f); if (n==100, break)) ) } \\ Harry J. Smith, Aug 04 2009

Crossrefs

Cf. A002808.

Sequence in context: A246612 A289635 A105187 * A239815 A279659 A062528

Adjacent sequences: A062310 A062311 A062312 * A062314 A062315 A062316

Keyword

easy,nonn

Author

Jason Earls, Jul 05 2001

Status

approved