OFFSET
1,1
MATHEMATICA
L1=2; A1={3}; Do[L1=LCM[L1, n]; k=1; While[ !PrimeQ[p=k*L1+1], k++ ]; Print[p]; AppendTo[A1, n], {n, 4, 60, 2}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 09 2009
STATUS
approved