A230597 Numbers n such that (the binary weight of n) = (the ternary weight of n).

0, 1, 10, 12, 13, 34, 36, 37, 41, 48, 49, 66, 67, 68, 96, 97, 120, 121, 131, 132, 133, 136, 144, 145, 160, 192, 193, 202, 258, 259, 260, 264, 265, 272, 273, 282, 283, 284, 288, 289, 320, 338, 340, 354, 355, 356, 360, 361, 368, 384, 385, 390, 391, 394, 418

Offset

1,3

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Formula

A062756(a(n)) = A000120(a(n)).

Mathematica

w[m_]:=Table[Count[IntegerDigits[n, m], 1], {n, 0, 2000}]; Position[w[2]-w[3], 0]//Flatten

Prog

(PARI) is(n)=my(v=digits(n, 3)); sum(i=1, #v, v[i]==1)==hammingweight(n) \\ Charles R Greathouse IV, Oct 24 2013

Crossrefs

Cf. A000120, A062756.

Sequence in context: A079026 A219956 A331276 * A330904 A124867 A199991

Adjacent sequences: A230594 A230595 A230596 * A230598 A230599 A230600

Keyword

nonn

Author

Zak Seidov, Oct 24 2013

Status

approved