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
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 05 2001
STATUS
approved