A023692 Numbers with a single 1 in their ternary expansion.
1, 3, 5, 7, 9, 11, 15, 17, 19, 21, 23, 25, 27, 29, 33, 35, 45, 47, 51, 53, 55, 57, 59, 61, 63, 65, 69, 71, 73, 75, 77, 79, 81, 83, 87, 89, 99, 101, 105, 107, 135, 137, 141, 143, 153, 155, 159, 161, 163, 165, 167, 169, 171, 173, 177, 179
Offset: 1
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[ Range[ 189 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==1)& ]