OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MAPLE
q:= n-> numboccur(1, convert(n, base, 3))=3:
select(q, [$1..300])[]; # Alois P. Heinz, Mar 15 2020
MATHEMATICA
Select[ Range[ 270 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==3)& ]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved