The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 17 14:07 EDT 2021. Contains 347478 sequences. (Running on oeis4.)