[go: up one dir, main page]

login
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
OFFSET
1,1
LINKS
FORMULA
a(n) = A098974(n) + 24. - Amiram Eldar, Mar 13 2020
a(n) >> n log^2 n. - Charles R Greathouse IV, Mar 13 2020
MATHEMATICA
a = {}; Do[If[Prime[x + 1] - Prime[x] == 24, AppendTo[a, Prime[x + 1]]], {x, 1, 10000}]; a
PROG
(PARI) q=2; forprime(p=3, 1e5, if(p-q==24, print1(p", ")); q=p) \\ Charles R Greathouse IV, Mar 13 2020
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Feb 13 2007
STATUS
approved