A373156 a(n) = 1 if the 2-adic and the 3-adic valuations of n are equal, otherwise 0.

1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1

Offset

1

Links

Antti Karttunen, Table of n, a(n) for n = 1..100000

Index entries for characteristic functions

Formula

a(n) = [A007814(n) == A007949(n)], where [ ] is the Iverson bracket.

Sum_{k=1..n} a(k) ~ (2/5) * n. - Amiram Eldar, May 31 2024

Mathematica

a[n_] := Boole[IntegerExponent[n, 2] == IntegerExponent[n, 3]];
Table[a[n], {n, 1, 121}] (* Robert P. P. McKone, May 28 2024 *)

Prog

(PARI) A373156(n) = (valuation(n, 2)==valuation(n, 3));

Crossrefs

Characteristic function of A064615.

Cf. A007814, A007949.

Sequence in context: A071906 A104107 A120532 * A320106 A303561 A284680

Adjacent sequences: A373153 A373154 A373155 * A373157 A373158 A373159

Keyword

nonn

Author

Antti Karttunen, May 28 2024

Status

approved