|
|
A163112
|
|
Prime numbers with gaps larger than 20 towards both neighboring primes.
|
|
2
|
|
|
16033, 16787, 18013, 23719, 24281, 29101, 32749, 33247, 33679, 33997, 37747, 38501, 40063, 40387, 42533, 42611, 44417, 46957, 51109, 51383, 53479, 54217, 55291, 55763, 56333, 56569, 58271, 58511, 58831, 59833, 61441, 61781, 62273, 66137, 66271, 69593, 69623
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
p := 2; q := 3; r := 3; for n from 2 to 15000 do if q-p > 20 and r-q > 20 then printf("%d, ", q) ; fi; p := q; q := r; r := nextprime(r) ; od: # R. J. Mathar, Jul 27 2009
|
|
MATHEMATICA
|
Select[Partition[Prime[Range[7000]], 3, 1], Min[Differences[#]]>20&] [[All, 2]] (* Harvey P. Dale, Mar 16 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|