Search: id:A088424 Results 1-1 of 1 results found. %I A088424 %S A088424 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, %T A088424 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, %U A088424 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 %N A088424 Number of primes in arithmetic progression starting with 13 and with d=2n. %C A088424 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. %t A088424 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] %Y A088424 Cf. A088420, A088421, A088422, A088423, A088425, A088426, A088427, A088428, A088429. %Y A088424 Sequence in context: A071292 A088569 A001285 this_sequence A097456 A164002 A087775 %Y A088424 Adjacent sequences: A088421 A088422 A088423 this_sequence A088425 A088426 A088427 %K A088424 easy,nonn %O A088424 1,2 %A A088424 Zak Seidov (zakseidov(AT)yahoo.com), Sep 29 2003 Search completed in 0.001 seconds