OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[ Range[ 150 ], (Count[ IntegerDigits[ #, 5 ], 2 ]==1)& ]
Select[Range[200], DigitCount[#, 5, 2]==1&] (* Harvey P. Dale, Sep 23 2023 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved