OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..92
MATHEMATICA
Select[Range[0, 2 10^6], DigitCount[#, 3, 0]==1 && DigitCount[#, 3, 1]==0 &] (* Vincenzo Librandi, Jun 28 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(1) = 0 inserted by Georg Fischer, Jun 27 2019
STATUS
approved