A023698 Numbers with exactly 7 1's in their ternary expansion.

1093, 2551, 3037, 3199, 3253, 3271, 3277, 3279, 3281, 3283, 3289, 3307, 3361, 3523, 4009, 5467, 6925, 7411, 7573, 7627, 7645, 7651, 7653, 7655, 7657, 7663, 7681, 7735, 7897, 8383, 8869, 9031, 9085, 9103, 9109, 9111

Offset

1,1

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Mathematica

Select[ Range[ 9153 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==7)& ]
Select[Range[10000], DigitCount[#, 3, 1]==7&] (* Harvey P. Dale, Feb 15 2025 *)

Crossrefs

Sequence in context: A138698 A342390 A252520 * A038469 A246503 A077816

Adjacent sequences: A023695 A023696 A023697 * A023699 A023700 A023701

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved