[go: up one dir, main page]

login
A088424
Number of primes in arithmetic progression starting with 13 and with d=2n.
9
1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 3, 1, 2, 4, 1, 2, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 3, 1, 2, 6, 1, 2, 2, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 5, 1, 2, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 1, 2, 3, 1, 2, 2, 1, 1, 1, 1, 1, 4, 1
OFFSET
1,2
COMMENTS
Arithmetic progression is stopped when next term is not prime. E.g. for n=15, a=4, that is 13,43,73,103 are prime, while next term, 133, is not prime.
MATHEMATICA
bb={}; Do[s=1; Do[If[PrimeQ[13+k*d], s=s+1, bb={bb, s}; Break[]], {k, 10}], {d, 2, 200, 2}]; Flatten[bb]
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 29 2003
STATUS
approved