login
A333393
Primes whose binary representation corresponds to the characteristic function of 1, 2, 3, 5, 7, ... (1 followed by primes).
1
3, 7, 29, 1873, 7672913, 8045632442437, 2490002635466567109268165355290155548689
OFFSET
1,1
COMMENTS
The next term is too large to include.
EXAMPLE
1873 (in base 10) = 11101010001 (in base 2).
||| | | |
123 5 7 11
MATHEMATICA
Select[Table[2^(Prime[n] - 1) + Sum[2^(Prime[n] - Prime[k]), {k, 1, n}], {n, 1, 32}], PrimeQ[#] &]
CROSSREFS
Primes in A333392.
Sequence in context: A061955 A113834 A057181 * A227077 A136934 A369083
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Mar 18 2020
STATUS
approved