A300222 In ternary (base-3) representation of n, replace 1's with 0's.

0, 0, 2, 0, 0, 2, 6, 6, 8, 0, 0, 2, 0, 0, 2, 6, 6, 8, 18, 18, 20, 18, 18, 20, 24, 24, 26, 0, 0, 2, 0, 0, 2, 6, 6, 8, 0, 0, 2, 0, 0, 2, 6, 6, 8, 18, 18, 20, 18, 18, 20, 24, 24, 26, 54, 54, 56, 54, 54, 56, 60, 60, 62, 54, 54, 56, 54, 54, 56, 60, 60, 62, 72, 72, 74, 72, 72, 74, 78, 78, 80, 0, 0, 2, 0, 0, 2, 6, 6, 8, 0, 0, 2

Offset: 0

Author

Antti Karttunen, Mar 14 2018

Keywords

• nonn
• base

Examples

			For n=46, which in base-3 (A007089) is 1201, replacing 1's with 0's gives 200, and as that is base-3 representation of 18 (= 2*(3^2) + 0*(3^1) + 0*(3^0)), a(46) = 18.
		

Links

• Antti Karttunen, Table of n, a(n) for n = 0..59048

Crossrefs

Cf. A004488, A005836, A007089, A244042, A289814.

Cf. A300822 (Moebius transform).

Programs

Mathematica

Array[FromDigits[IntegerDigits[#, 3] /. 1 -> 0, 3] &, 93, 0] (* Michael De Vlieger, Mar 17 2018 *)

PARI

A244042(n) = fromdigits(apply(x->(x%2), digits(n, 3)), 3);
A300222(n) = (n - A244042(n));
\\ Or directly as:
A300222(n) = fromdigits(apply(x->(if (1==x, 0, x)), digits(n, 3)), 3);

Formula

a(n) = n - A244042(n) = 2*A244042(A004488(n)).

a(n) = 2*A005836(1+A289814(n)). [With the current starting offset 1 of A005836.]

a(n) = A300822(n) + A300824(n).