A180017 Difference of sums of digits of n in ternary and in binary.

0, 0, 1, -1, 1, 1, 0, 0, 3, -1, 0, 0, 0, 0, 1, -1, 3, 3, 0, 0, 2, 0, 1, 1, 2, 2, 3, -3, -1, -1, -2, -2, 3, 1, 2, 2, 0, 0, 1, -1, 2, 2, 1, 1, 3, -1, 0, 0, 2, 2, 3, 1, 3, 3, -2, -2, 1, -1, 0, 0, 0, 0, 1, -3, 3, 3, 2, 2, 4, 2, 3, 3, 2, 2, 3, 1, 3, 3, 2, 2, 6, -2, -1, -1, -1, -1, 0, -2, 1, 1, -2, -2, 0

Offset

0,9

Comments

This sequence is positive on average, since 1/log(3) > 1/log(4). Do all integers appear infinitely often? - Charles R Greathouse IV, Feb 07 2013

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Formula

a(n) = A053735(n) - A000120(n);

a(A037301(n)) = 0;

a(A000244(n)) = 1 - A000120(A000244(n));

a(A000079(n)) = A053735(A000079(n)) - 1;

a(A024023(n)) = 2*n - A000120(A024023(n)); a(A000225(n)) = A053735(A000225(n)) - n.

a(n) = A011371(n) - 2*A054861(n). - Henry Bottomley, Feb 16 2024

Example

For n = 7 = 21_3 = 111_2, a(n) = (2+1) - (1+1+1) = 0.
For n = 8 = 22_3 = 1000_2, a(n) = (2+2) - (1+0+0+0) = 3.
For n = 9 = 100_3 = 1001_2, a(n) = (1+0+0) - (1+0+0+1) = -1.

Mathematica

Table[Total[IntegerDigits[n, 3]]-Total[IntegerDigits[n, 2]], {n, 0, 100}] (* Harvey P. Dale, Dec 08 2015 *)

Prog

(PARI) a(n) = sumdigits(n, 3) - sumdigits(n, 2); \\ Michel Marcus, Nov 12 2023

Crossrefs

Cf. A180018, A180019, A007088, A007089.

Sequence in context: A255851 A334743 A078529 * A243827 A059530 A193525

Adjacent sequences: A180014 A180015 A180016 * A180018 A180019 A180020

Keyword

base,sign

Author

Reinhard Zumkeller, Aug 06 2010

Status

approved