|
| |
|
|
A350496
|
|
Positive integers k such that if p is the largest prime less than k then k - p is prime.
|
|
1
|
|
|
|
5, 7, 9, 10, 13, 15, 16, 19, 21, 22, 25, 26, 28, 31, 33, 34, 36, 39, 40, 43, 45, 46, 49, 50, 52, 55, 56, 58, 61, 63, 64, 66, 69, 70, 73, 75, 76, 78, 81, 82, 85, 86, 88, 91, 92, 94, 96, 99, 100, 103, 105, 106, 109, 111, 112, 115, 116, 118, 120, 124, 126, 129
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
a(n) is prime only when n is the greater of a twin prime pair (A006512). All other terms are composite.
|
|
|
LINKS
|
Table of n, a(n) for n=1..62.
|
|
|
EXAMPLE
|
9 is a term because the previous prime < 9 is 7, and 9 - 7 = 2, which is prime.
|
|
|
MATHEMATICA
|
Select[Range[2, 130], PrimeQ[# - NextPrime[#, -1]] &] (* Amiram Eldar, Jan 02 2022 *)
|
|
|
PROG
|
(Python)
from sympy import isprime, prevprime
def ok(n): return n > 2 and isprime(n-prevprime(n))
print([k for k in range(249) if ok(k)]) # Michael S. Branicky, Jan 01 2022
(PARI) isok(k) = if (k>2, my(q=precprime(k-1)); isprime(k-q)); \\ Michel Marcus, Jan 02 2022
|
|
|
CROSSREFS
|
Cf. A175090, A006512.
Sequence in context: A018935 A039501 A114255 * A138579 A189703 A158251
Adjacent sequences: A350493 A350494 A350495 * A350497 A350498 A350499
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Ryan Bresler, Jan 01 2022
|
|
|
STATUS
|
approved
|
| |
|
|
