%I #9 Jun 28 2024 11:47:24

%S 311,599,641,881,1319,1697,1721,2657,2969,3257,4019,4127,4337,4721,

%T 5009,6449,6569,6689,6761,7547,9041,9239,10457,10529,11171,11699,

%U 11939,13691,16229,19379,20147,20357,20477,22697,23057,24977,25169,26249,26681,26729,27059

%N Numbers k such that k and k+2 are both prime binary self (or Colombian) numbers (A374102).

%H Amiram Eldar, <a href="/A374103/b374103.txt">Table of n, a(n) for n = 1..10000</a>

%t 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]

%Y Subsequence of A001359, A339216 and A374102.

%Y Cf. A010061, A006378.

%K nonn,base,easy

%O 1,1

%A _Amiram Eldar_, Jun 28 2024