A023696 Numbers with exactly 5 1's in ternary expansion.

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

Author

Olivier Gérard

Keywords

• nonn
• base
• easy

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..5000

Programs

Mathematica

Select[ Range[ 1134 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==5)& ]
Select[Range[2000],DigitCount[#,3,1]==5&] (* Harvey P. Dale, May 14 2017 *)