A297114 Möbius transform of A294898, where A294898(n) = A005187(n) - A000203(n).

0, 0, 0, 0, 2, -2, 3, 0, 3, -2, 7, -4, 9, -2, 0, 0, 14, -6, 15, -4, 4, -2, 18, -8, 14, -2, 7, -4, 24, -14, 25, 0, 9, -2, 14, -12, 33, -2, 9, -8, 37, -18, 38, -4, 3, -2, 41, -16, 35, -10, 12, -4, 48, -18, 24, -8, 15, -2, 53, -28, 55, -2, 6, 0, 33, -26, 63, -4, 21, -22, 66, -24, 69, -2, 6, -4, 44, -30, 73, -16, 28, -2

Offset

1,5

Links

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

Formula

a(n) = Sum_{d|n} A008683(n/d)*A294898(d).

a(n) = A297111(n) - n.

a(n) = A297117(n) - A051953(n).

a(n) = A083254(n) - A297115(n).

a(2n) = A083254(2n).

Mathematica

Table[DivisorSum[n, MoebiusMu[n/#] (2 # - DigitCount[2 #, 2, 1] - DivisorSigma[1, #]) &], {n, 82}] (* Michael De Vlieger, Mar 11 2019 *)

Prog

(PARI)
A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
A297114(n) = sumdiv(n, d, moebius(n/d)*(A005187(d)-sigma(d)));

Crossrefs

Cf. A000203, A005187, A051953, A083254, A294898, A297111, A297115, A297117.

Sequence in context: A324348 A125093 A294898 * A318448 A103516 A233558

Adjacent sequences: A297111 A297112 A297113 * A297115 A297116 A297117

Keyword

sign

Author

Antti Karttunen, Dec 26 2017

Status

approved