OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Range[ 150 ], OddQ[ Length[ Cases[ IntegerDigits[ Prime[ # ], 2 ], 1 ] ] ]& ]
Select[Range[200], OddQ[DigitCount[Prime[#], 2, 1]]&] (* Harvey P. Dale, Sep 19 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman
STATUS
approved