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