|
|
A129812
|
|
Lesser of consecutive prime pairs whose last digits differ by 6.
|
|
1
|
|
|
7, 19, 23, 31, 37, 53, 61, 67, 73, 79, 83, 97, 109, 127, 131, 151, 173, 229, 233, 251, 263, 271, 277, 307, 317, 331, 349, 353, 373, 379, 383, 397, 433, 439, 443, 457, 487, 499, 503, 541, 563, 571, 593, 601, 653, 733, 739, 751, 757, 769, 839, 859, 877, 907, 937
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
Conjecture: The number of terms in this sequence is infinite.
|
|
LINKS
|
|
|
EXAMPLE
|
The last digits of the consecutive prime pair 7 and 11 differ by 6 so 7 is in the table.
|
|
MATHEMATICA
|
Select[Partition[Prime[Range[200]], 2, 1], Abs[Mod[#[[1]], 10]-Mod[#[[2]], 10]]==6&][[All, 1]] (* Harvey P. Dale, Jan 23 2023 *)
|
|
PROG
|
(PARI) \d can be 2, 4, 6, 8 primediffd(n, d) = { forprime(x=3, n, y=abs((nextprime(x+1)%10-x%10)); if(y==d, print1(x", ") ) ) }
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,base,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|