OFFSET
1,1
MATHEMATICA
t = {}; s = 1; Do[s = s*i; If[PrimeQ[s + 1], AppendTo[t, s + 1]; s = 1], {i, 2, 260, 2}]; t (* Jayanta Basu, Jul 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 12 2002
EXTENSIONS
More terms from Felice Russo, Oct 11 2002
STATUS
approved