OFFSET
1,1
COMMENTS
The minimal possible difference in an AP-k is conjectured to be k# for all k > 7.
LINKS
Sameen Ahmed Khan, Table of n, a(n) for n = 1..150
MATHEMATICA
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
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Sameen Ahmed Khan, Jul 05 2013
STATUS
approved