OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by Harvey P. Dale, Dec 28 2018
STATUS
approved