login
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
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
Sequence in context: A123532 A113972 A082422 * A353046 A032680 A141831
KEYWORD
easy,nonn,base,less
AUTHOR
Cino Hilliard, May 19 2007
STATUS
approved