OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[500], DigitCount[#, 3, 0]==1&&DigitCount[#, 3, 1]==2&] (* Harvey P. Dale, Aug 19 2019 *)
PROG
(PARI) is(n)=my(d=digits(n, 3), fr=vector(3)); for(i=1, #d, fr[d[i]+1]++); fr[1]==1&&fr[2]==2 \\ David A. Corneth, Aug 19 2019
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
STATUS
approved