A174659 Numbers whose balanced ternary representation has more positive trits than negative trits.

1, 3, 4, 7, 9, 10, 11, 12, 13, 19, 21, 22, 25, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 49, 55, 57, 58, 61, 63, 64, 65, 66, 67, 73, 75, 76, 79, 81, 82, 83, 84, 85, 87, 88, 89, 90, 91, 92, 93, 94, 97, 99, 100, 101, 102, 103, 105, 106, 107, 108, 109, 110, 111, 112

Offset: 1

Author

Daniel Forgues, Mar 26 2010

Keywords

• base
• nonn

Comments

Numbers for which the sum of trits is positive.

Links

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

Crossrefs

Cf. A174657, A174658, A065363, A140267.

Programs

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 *)

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

Formula

a(n) < 2n. - Yifan Xie, Dec 24 2024