OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..174
MATHEMATICA
Select[Partition[Prime[Range[20*10^7]], 9, 1], Differences[#] == 2*Range[8] &][[All, 1]]
PROG
(PARI) g=0; p=2; forprime(q=3, , if(q-p==g+2, g+=2; if(g==16, print1(q-72", "); g=0), g=0); p=q) \\ Charles R Greathouse IV, Jan 28 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Jan 27 2017
EXTENSIONS
a(10)-a(20) from Charles R Greathouse IV, Jan 28 2017
STATUS
approved