A374103 Numbers k such that k and k+2 are both prime binary self (or Colombian) numbers (A374102).
311, 599, 641, 881, 1319, 1697, 1721, 2657, 2969, 3257, 4019, 4127, 4337, 4721, 5009, 6449, 6569, 6689, 6761, 7547, 9041, 9239, 10457, 10529, 11171, 11699, 11939, 13691, 16229, 19379, 20147, 20357, 20477, 22697, 23057, 24977, 25169, 26249, 26681, 26729, 27059
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
seq[max_] := Module[{c = Complement[Prime[Range[max]], Table[n + DigitCount[n, 2, 1], {n, 0, Prime[max]}]], d, ind}, d = Differences[c]; ind = Position[d, 2] // Flatten; c[[ind]]]; seq[3000]