A174657 Balanced ternary numbers with more negative trits than positive trits.

5, 14, 15, 17, 23, 41, 42, 43, 44, 45, 47, 50, 51, 53, 59, 68, 69, 71, 77, 95, 122, 123, 124, 125, 126, 127, 128, 129, 131, 132, 133, 134, 135, 137, 140, 141, 143, 149, 150, 151, 152, 153, 155, 158, 159, 161, 167, 176, 177, 179, 185, 203, 204, 205, 206, 207, 209

Offset

1,1

Comments

Numbers for which the sum of trits is negative.

Links

Daniel Forgues, Table of n, a(n) for n=1..32685

Mathematica

(* First run the program for A065363 to define balTernDigits *) Select[Range[210], Count[balTernDigits[#], -1] > Count[balTernDigits[#], 1] &] (* Alonso del Arte, Feb 26 2011 *)

Prog

(Python)
def a(n):
    s=0
    x=0
    while n>0:
        x=n%3
        n//=3
        if x==2:
            x=-1
            n+=1
        s+=x
    return s
print([n for n in range(301) if a(n)<0]) # Indranil Ghosh, Jun 07 2017

Crossrefs

Cf. A174658, A174659, A065363, A140267.

Sequence in context: A272970 A168213 A175485 * A231665 A160709 A067113

Adjacent sequences: A174654 A174655 A174656 * A174658 A174659 A174660

Keyword

base,nonn

Author

Daniel Forgues, Mar 26 2010

Status

approved