OFFSET
1,1
COMMENTS
a(22) > 25,000. - Robert Price, Jan 02 2017
MATHEMATICA
k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 32] && k>32, Print[n]; AppendTo[a, n]], {n, 2, 325}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 21 2008
EXTENSIONS
Drop 2,3 and correct program, a(17)-a(19) from Ray Chandler, Jun 16 2013
a(20)-a(21) from Robert Price, Jan 02 2017
STATUS
approved