A297114 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A297114

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

9

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

(list; graph; refs; listen; history; text; internal format)

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