OFFSET
1,1
MATHEMATICA
s = t = 2; Print[t]; Do[k = 1; While[ !PrimeQ[k*t + 1], k++ ]; p = k*t + 1; Print[p]; t += p, {n, 2, 30}] (* Ryan Propper, Jul 29 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 02 2003
EXTENSIONS
More terms from Ryan Propper, Jul 29 2005
Further terms from David Wasserman, Nov 16 2005
STATUS
approved