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,1

Links

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

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

Adjacent sequences: A023693 A023694 A023695 * A023697 A023698 A023699

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved