OFFSET
1,1
MATHEMATICA
Position[Prime[Range[600000]], _?(DigitCount[#, 2, 1] == 3 &)] // Flatten (* Amiram Eldar, Mar 04 2023 *)
PrimePi@ Union@ Select[Flatten@ Table[2^i + 2^j + 1, {i, 0, 23}, {j, 0, i - 1}], PrimeQ] (* Michael De Vlieger, Mar 21 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 03 2023
STATUS
approved