login
A288024
Prime p1 of consecutive primes p1, p2, where p2 - p1 = 8, and p1, p2 are in different decades.
4
89, 359, 389, 449, 479, 683, 719, 743, 929, 983, 1109, 1163, 1193, 1373, 1439, 1523, 1559, 1733, 1823, 1979, 2003, 2153, 2213, 2243, 2273, 2459, 2609, 2663, 2699, 2843, 2879, 2909, 3209, 3449, 3623, 3719, 4289, 4349, 4583, 4943, 5189, 5399, 5573, 5693, 5783, 5813
OFFSET
1,1
COMMENTS
The unit digits of the numbers in the sequence are 3's or 9's.
LINKS
EXAMPLE
89 is in the sequence since pair (89,97) is the first with difference 8 spanning a multiple of 10.
MATHEMATICA
a288024[n_] := Map[Last, Select[Map[{NextPrime[#, 1], NextPrime[#, -1]}&, Range[10, n, 10]], First[#]-Last[#]==8&]]
a288024[6000] (* data *)
Select[Partition[Prime[Range[800]], 2, 1], #[[2]]-#[[1]]==8&&IntegerDigits[#[[1]]][[-2]]!= IntegerDigits[ #[[2]]][[-2]]&][[;; , 1]] (* Harvey P. Dale, Jan 09 2024 *)
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Jun 04 2017
STATUS
approved