OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Range[ 160 ], (Count[ IntegerDigits[ #, 4 ], 1 ]==1)& ]
Select[Range[160], DigitCount[#, 4, 1]==1&] (* Harvey P. Dale, Feb 10 2023 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved