OFFSET
1,2
MATHEMATICA
t = {s = 1}; Do[s = s*i; If[PrimeQ[s + 2], AppendTo[t, s + 2]; s = 1], {i, 1, 148, 2}]; t (* Jayanta Basu, Jul 07 2013 *)
PROG
(PARI) print1("1, "):p=1:c=3:for(n=1, 50, while(!isprime(p+2), p=p*c:c=c+2):print1(p+2", "):p=c:c=c+2)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 12 2002
EXTENSIONS
Edited by Ralf Stephan, Mar 26 2003
STATUS
approved