OFFSET
1,1
COMMENTS
a(21) > 20000. The PFGW program has been used to certify all the terms up to a(20), using the "N-1" deterministic test. - Giovanni Resta, Mar 31 2014
MATHEMATICA
Select[Range[0, 1400], PrimeQ[(#!+3)/3] &] (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
PROG
(Magma) [n: n in [0..500] | IsPrime((Factorial(n)+3) div 3)]; // Vincenzo Librandi, Dec 12 2011
(PARI) is(n)=ispseudoprime(n!\3+1) \\ Charles R Greathouse IV, Mar 21 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Dec 05 2003
EXTENSIONS
More terms from Don Reble, Dec 06 2003
1330 from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
Typo in Mma program corrected by Vincenzo Librandi, Dec 12 2011
a(16)-a(20) from Giovanni Resta, Mar 31 2014
a(21)-a(23) from Serge Batalov, Feb 17 2015
STATUS
approved