OFFSET
1,1
MATHEMATICA
f[x_] := Prime[x]*f[x-1]+2; f[1]=1; Do[s=f[n]; If[PrimeQ[s], Print[n]], {n, 1, 1000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 23 2003
STATUS
approved