OFFSET
1,1
COMMENTS
MATHEMATICA
a = {}; Do[If[PrimeQ[(-3 + n!!)/3], AppendTo[a, [(-3 + n!!)/3]], {n, 1, 1000}]; a
Select[(Range[50]!-3)/3, PrimeQ] (* Harvey P. Dale, Nov 27 2015 *)
PROG
(PARI) for(n=1, 1000, if(floor(n!/3-1)==n!/3-1, if(ispseudoprime(n!/3-1), print(n!/3-1)))) \\ Derek Orr, Mar 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 07 2008
EXTENSIONS
Definition corrected by Derek Orr, Mar 28 2014
STATUS
approved