# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a374103 Showing 1-1 of 1 %I A374103 #9 Jun 28 2024 11:47:24 %S A374103 311,599,641,881,1319,1697,1721,2657,2969,3257,4019,4127,4337,4721, %T A374103 5009,6449,6569,6689,6761,7547,9041,9239,10457,10529,11171,11699, %U A374103 11939,13691,16229,19379,20147,20357,20477,22697,23057,24977,25169,26249,26681,26729,27059 %N A374103 Numbers k such that k and k+2 are both prime binary self (or Colombian) numbers (A374102). %H A374103 Amiram Eldar, Table of n, a(n) for n = 1..10000 %t A374103 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 A374103 Subsequence of A001359, A339216 and A374102. %Y A374103 Cf. A010061, A006378. %K A374103 nonn,base,easy %O A374103 1,1 %A A374103 _Amiram Eldar_, Jun 28 2024 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE