|
%I #10 Jun 28 2024 11:46:38
%S 13,23,37,71,83,97,113,233,311,313,337,359,373,401,409,449,457,499,
%T 569,593,599,601,617,641,643,739,761,809,821,853,881,883,929,947,953,
%U 977,1103,1129,1153,1193,1217,1237,1249,1297,1303,1319,1321,1429,1459,1489,1499
%N Prime binary self (or Colombian) numbers: primes not expressible as the sum of an integer and its binary weight.
%H Amiram Eldar, <a href="/A374102/b374102.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{m = 240}, Complement[Prime[Range[m]], Table[n + DigitCount[n, 2, 1], {n, 0, Prime[m]}]]]
%Y Intersection of A000040 and A010061.
%Y A374103 is a subsequence.
%Y Cf. A000120, A006378 (decimal analog).
%K nonn,base,easy
%O 1,1
%A _Amiram Eldar_, Jun 28 2024
|
