login
A023696
Numbers with exactly 5 1's in ternary expansion.
2
121, 283, 337, 355, 361, 363, 365, 367, 373, 391, 445, 607, 769, 823, 841, 847, 849, 851, 853, 859, 877, 931, 985, 1003, 1009, 1011, 1013, 1015, 1021, 1039, 1057, 1063, 1065, 1067, 1069, 1075, 1081, 1083, 1085, 1087
OFFSET
1,1
LINKS
MATHEMATICA
Select[ Range[ 1134 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==5)& ]
Select[Range[2000], DigitCount[#, 3, 1]==5&] (* Harvey P. Dale, May 14 2017 *)
CROSSREFS
Sequence in context: A218172 A083749 A211468 * A038467 A106562 A106573
KEYWORD
nonn,base,easy
STATUS
approved