reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Table[DivisorSum[n, Mod[#, 2] EulerPhi[#]*2^(n/#)/(2 n) &] - DivisorSum[n, Total[MoebiusMu[#]*2^(n/#)]/(2 n) &, OddQ], {n, 69}] (* _Michael De Vlieger_, Mar 26 2022 *)
proposed
editing
editing
proposed
Yan Bo Ti, Gabriel Verret, and Lukas Zobernig, <a href="https://arxiv.org/abs/2203.08401">Abelian Varieties with p-rank Zero</a>, arXiv:2203.08401 [math.NT], 2022.
Michael De Vlieger, <a href="/A053734/b053734.txt">Table of n, a(n) for n = 1..10000</a>
Table[DivisorSum[n, Mod[#, 2] EulerPhi[#]*2^(n/#)/(2 n) &] - DivisorSum[n, Total[MoebiusMu[#]*2^(n/#)]/(2 n) &, OddQ], {n, 69}]
approved
editing
_N. J. A. Sloane (njas(AT)research.att.com), _, Mar 25 2000
nonn,new
nonn
N. J. A. Sloane (njas, (AT)research.att.com), Mar 25 2000