OFFSET
1,1
COMMENTS
a(30) > 25000. - Robert Price, Jan 13 2017
MATHEMATICA
k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 8] && k > 8, Print[n]; AppendTo[a, n]], {n, 2, 481}]; a
PROG
(PARI) is(n)=ispseudoprime(prod(i=2, n, prime(i))-8) \\ Charles R Greathouse IV, Jun 13 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 21 2008
EXTENSIONS
a(24)-a(25) from Charles R Greathouse IV, Jun 13 2013
a(26)-a(27) from Ray Chandler, Jun 16 2013
a(28)-a(29) from Robert Price, Jan 13 2017
STATUS
approved