OFFSET
1,2
MATHEMATICA
Select[Range[0, 30000], DigitCount[#, 3, 0]==1&&DigitCount[#, 3, 2]==0&] (* Harvey P. Dale, Jun 20 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(1) = 0 inserted by Georg Fischer, Jun 27 2019
STATUS
approved