[go: up one dir, main page]

login
A031931
Upper prime of a difference of 12 between consecutive primes.
4
211, 223, 479, 521, 631, 673, 809, 1009, 1213, 1249, 1319, 1471, 1511, 1523, 1543, 1721, 1801, 1823, 1901, 2081, 2111, 2309, 2411, 2459, 2591, 2633, 2789, 2939, 3061, 3079, 3181, 3203, 3271, 3343, 3359, 3511, 3571, 3671, 3943, 4001, 4091, 4111, 4409, 4421
OFFSET
1,1
MATHEMATICA
Select[Partition[Prime[Range[700]], 2, 1], #[[2]]-#[[1]]==12&][[All, 2]] (* Harvey P. Dale, Dec 28 2018 *)
PROG
(PARI) isok(p) = isprime(p) && (p-precprime(p-1) == 12); \\ Michel Marcus, Jun 24 2022
CROSSREFS
Cf. A031925 (difference of 6).
Sequence in context: A319141 A133959 A133960 * A246136 A087833 A240918
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by Harvey P. Dale, Dec 28 2018
STATUS
approved