OFFSET
1,1
COMMENTS
Arithmetic progression is stopped when next term is not prime. E.g. for n=6 (d=12), a=3, that is 29,41,53 are prime, while next term, 65, is not prime.
MATHEMATICA
bb={}; Do[s=1; Do[If[PrimeQ[29+k*d], s=s+1, bb={bb, s}; Break[]], {k, 10}], {d, 2, 200, 2}]; Flatten[bb]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 29 2003
STATUS
approved