login
A062313
Factorials of nonprime numbers.
1
1, 24, 720, 40320, 362880, 3628800, 479001600, 87178291200, 1307674368000, 20922789888000, 6402373705728000, 2432902008176640000, 51090942171709440000, 1124000727777607680000, 620448401733239439360000
OFFSET
1,2
LINKS
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
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 05 2001
STATUS
approved