A368647 The number of distinct primes of the form 3*k+2 dividing n minus the number of distinct primes of the form 3*k+1 dividing n.

0, 1, 0, 1, 1, 1, -1, 1, 0, 2, 1, 1, -1, 0, 1, 1, 1, 1, -1, 2, -1, 2, 1, 1, 1, 0, 0, 0, 1, 2, -1, 1, 1, 2, 0, 1, -1, 0, -1, 2, 1, 0, -1, 2, 1, 2, 1, 1, -1, 2, 1, 0, 1, 1, 2, 0, -1, 2, 1, 2, -1, 0, -1, 1, 0, 2, -1, 2, 1, 1, 1, 1, -1, 0, 1, 0, 0, 0, -1, 2, 0, 2

Offset

1,10

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

Additive with a(p^e) = 0 if p = 3, 1 if p == 2 (mod 3), and -1 if p == 1 (mod 3).

a(n) = A005090(n) - A005088(n).

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A086241 = 0.641944... .

Mathematica

f[p_, e_] := Switch[Mod[p, 3], 0, 0, 1, -1, 2, 1]; a[1] = 0; a[n_] := Plus @@ f @@@ FactorInteger[n]; Array[a, 100]

Prog

(PARI) a(n) = {my(p = factor(n)[, 1]); sum(i = 1, #p, if(p[i]%3 == 0, 0, if(p[i]%3 == 1, -1, 1))); }

Crossrefs

Cf. A002476, A003627, A005094, A005088, A005090, A086241.

Sequence in context: A107034 A117410 A367622 * A240009 A281490 A326695

Adjacent sequences: A368644 A368645 A368646 * A368648 A368649 A368650

Keyword

sign,easy

Author

Amiram Eldar, Jan 02 2024

Status

approved