OFFSET
1,1
COMMENTS
The next term is too large to include.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..13
FORMULA
MATHEMATICA
Select[Table[(n!+3)/3, {n, 0, 50}], PrimeQ] (* Vincenzo Librandi, Dec 12 2011 *)
PROG
(PARI) nfactp2d2(n) = { for(x=1, n, y=floor((x!+ 3)/3); if(isprime(y), print1(y", ")) ) }
(Magma) [a: n in [1..50] | IsPrime(a) where a is (Factorial(n)+3) div 3]; // Vincenzo Librandi, Dec 12 2011
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Cino Hilliard, Dec 05 2003
STATUS
approved