OFFSET
1,2
MATHEMATICA
Select[Range[0, 400], DigitCount[#, 4, 0]==1&&DigitCount[#, 4, 3]==0&] (* Harvey P. Dale, Nov 16 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(1) = 0 inserted by Georg Fischer, Jun 28 2019
STATUS
approved