A023702 Numbers with exactly 4 2's in their ternary expansion of n.

80, 161, 188, 215, 224, 233, 236, 239, 240, 241, 323, 404, 431, 458, 467, 476, 479, 482, 483, 484, 512, 539, 548, 557, 560, 563, 564, 565, 593, 620, 629, 638, 641, 644, 645, 646, 656, 665, 668, 671, 672, 673, 683, 692, 695

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base
• easy

Links

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

Programs

Mathematica

Select[ Range[ 729 ], (Count[ IntegerDigits[ #, 3 ], 2 ]==4)& ]
Select[Range[700],DigitCount[#,3,2]==4&] (* Harvey P. Dale, Oct 10 2024 *)