A031453 Numbers whose base-3 representation has one more 0 than 2's.

3, 10, 12, 18, 29, 31, 33, 37, 39, 45, 55, 57, 63, 86, 88, 92, 94, 96, 100, 102, 110, 112, 114, 118, 120, 126, 136, 138, 144, 164, 166, 168, 172, 174, 180, 190, 192, 198, 216, 251, 257, 259, 263, 265, 267, 275, 277, 281, 283, 285

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Mathematica

Select[Range@300, (s=#; Differences[Count[IntegerDigits[s, 3], #]&/@{0, 2}]=={-1})&] (* Giorgos Kalogeropoulos, Jul 04 2021 *)

Crossrefs

Cf. A007089.

Sequence in context: A358892 A358893 A317671 * A345961 A179203 A371476

Adjacent sequences: A031450 A031451 A031452 * A031454 A031455 A031456

Keyword

nonn,base

Author

Clark Kimberling

Status

approved