OFFSET
1,1
MATHEMATICA
k = 3; Do[i = 2; While[ !PrimeQ[10*i*k + 1], i++ ]; k *= i; Print[i], {n, 1, 100}] (* Ryan Propper, Aug 06 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 03 2003
EXTENSIONS
More terms from Ryan Propper, Aug 06 2005
STATUS
approved