|
|
A126720
|
|
Primes p such that p - q = 24, where q is the previous prime before p; or prime numbers preceded by precisely 23 composite numbers.
|
|
1
|
|
|
1693, 2203, 4201, 4547, 4783, 5261, 6197, 6421, 6761, 7103, 7393, 7817, 8147, 8353, 9091, 11027, 11657, 11863, 12097, 12143, 13033, 13291, 16057, 16217, 16477, 16787, 16811, 17077, 17707, 18013, 18617, 18661, 19207, 19531, 20507, 22433, 22901
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a = {}; Do[If[Prime[x + 1] - Prime[x] == 24, AppendTo[a, Prime[x + 1]]], {x, 1, 10000}]; a
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|