A333393 Primes whose binary representation corresponds to the characteristic function of 1, 2, 3, 5, 7, ... (1 followed by primes).
3, 7, 29, 1873, 7672913, 8045632442437, 2490002635466567109268165355290155548689
Offset: 1
Examples
1873 (in base 10) = 11101010001 (in base 2).
||| | | |
123 5 7 11
Programs
-
Mathematica
Select[Table[2^(Prime[n] - 1) + Sum[2^(Prime[n] - Prime[k]), {k, 1, n}], {n, 1, 32}], PrimeQ[#] &]
Comments