OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1501 [0 inserted by Georg Fischer, Jun 27 2019]
MATHEMATICA
Select[Range[0, 700], DigitCount[#, 4, 0]==1&&DigitCount[#, 4, 1]==0&] (* Harvey P. Dale, Feb 06 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(1) = 0 inserted by Georg Fischer, Jun 27 2019
STATUS
approved