OFFSET
1,1
COMMENTS
The unit digits of the numbers in the sequence are 7's or 9's.
EXAMPLE
7 is in this sequence since pair (7,11) is the first with difference 4 spanning a multiple of 10.
MATHEMATICA
a288021[n_] := Map[Last, Select[Map[{NextPrime[#, 1], NextPrime[#, -1]}&, Range[10, n, 10]], First[#]-Last[#]==4&]]
a288021[3000] (* data *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Jun 04 2017
STATUS
approved