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
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Mar 18 2020
STATUS
approved