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

Links

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

Mathematica

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

Crossrefs

Cf. A007089, A023693, A291907.

Sequence in context: A283476 A059791 A043329 * A058605 A282183 A103025

Adjacent sequences: A023696 A023697 A023698 * A023700 A023701 A023702

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved