OFFSET
1,2
MATHEMATICA
f[n_] := Product[ Prime[i], {i, 2, n, 2}] + Product[ Prime[i], {i, 1, n, 2}]; f[1] = 2; Do[ If[ PrimeQ[ f[n]], Print[n]], {n, 2060}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 27 2004
EXTENSIONS
a(36)-a(40) added by James G. Merickel, Jan 03 2013
STATUS
approved