A023699 Numbers with a single 2 in their ternary expansion.

2, 5, 6, 7, 11, 14, 15, 16, 18, 19, 21, 22, 29, 32, 33, 34, 38, 41, 42, 43, 45, 46, 48, 49, 54, 55, 57, 58, 63, 64, 66, 67, 83, 86, 87, 88, 92, 95, 96, 97, 99, 100, 102, 103, 110, 113, 114, 115, 119, 122, 123, 124, 126, 127, 129, 130, 135, 136, 138, 139, 144, 145

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007089, A023693, A291907.

Programs

Mathematica

Select[ Range[ 162 ], (Count[ IntegerDigits[ #, 3 ], 2 ]==1)& ]
Select[Range[200],DigitCount[#,3,2]==1&] (* Harvey P. Dale, Jul 26 2023 *)