OFFSET
1,1
COMMENTS
Odd digits are 1, 3, 5, 7 or 9.
MATHEMATICA
Select[Range[1, 401, 2], Count[IntegerDigits[#], _?OddQ]==Count[ IntegerDigits[ Prime[#]], _?OddQ]&] (* Harvey P. Dale, Sep 25 2020 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Feb 24 2009
EXTENSIONS
Corrected (105 replaced by 103, 305 inserted) by R. J. Mathar, May 15 2010
STATUS
approved