|
|
A281448
|
|
Initial primes of 9 consecutive primes with consecutive gaps 2, 4, 6, 8, 10, 12, 14, 16.
|
|
1
|
|
|
113575727, 232728647, 2426256797, 2469604721, 3344410367, 4656098957, 4952808461, 6369321857, 6430890287, 6760087151, 8518049207, 10818813737, 13195845317, 19684555061, 21884908931, 23953276661, 25509639137, 26367829331, 26390212061, 31004257211
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|