%I #10 May 03 2018 14:23:14
%S 199,409,619,881,3499,3709,10627,10859,11069,30097,31583,120661,
%T 120737,153319,182537,471089,487391,564973,565183,825991,1010747,
%U 1280623,1288607,1288817,1302281,1302491,1395209,1982599,2358841,2359051,2439571,3161017,3600521
%N First primes of arithmetic progressions of 8 primes each with the common difference 210.
%C The minimal possible difference in an AP-k is conjectured to be k# for all k > 7.
%H Sameen Ahmed Khan, <a href="/A227283/b227283.txt">Table of n, a(n) for n = 1..150</a>
%t Clear[p]; d = 210; ap8p = {}; Do[If[PrimeQ[{p, p + d, p + 2*d, p + 3*d, p + 4*d, p + 5*d, p + 6*d, p + 7*d}] == {True, True, True, True, True, True, True, True}, AppendTo[ap8p, p]], {p, 3, 3000000, 2}]; ap8p
%t Select[Prime[Range[260000]],AllTrue[NestList[#+210&,#,7],PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, May 03 2018 *)
%Y Cf. A001359, A023241, A023271, A094220, A156204, A227281, A227282, A227284, A227285, A227286.
%K nonn
%O 1,1
%A _Sameen Ahmed Khan_, Jul 05 2013