A352038 Sum of the 10th powers of the odd proper divisors of n.
0, 1, 1, 1, 1, 59050, 1, 1, 59050, 9765626, 1, 59050, 1, 282475250, 9824675, 1, 1, 3486843451, 1, 9765626, 282534299, 25937424602, 1, 59050, 9765626, 137858491850, 3486843451, 282475250, 1, 576660215300, 1, 1, 25937483651, 2015993900450, 292240875, 3486843451
Offset: 1
Examples
a(10) = 9765626; a(10) = Sum_{d|10, d<10, d odd} d^10 = 1^10 + 5^10 = 9765626.
Links
Crossrefs
Programs
-
Mathematica
f[2, e_] := 1; f[p_, e_] := (p^(10*e+10) - 1)/(p^10 - 1); a[1] = 0; a[n_] := Times @@ f @@@ FactorInteger[n] - If[OddQ[n], n^10, 0]; Array[a, 60] (* Amiram Eldar, Oct 11 2023 *)
-
Python
from math import prod from sympy import factorint def A352038(n): return prod((p**(10*(e+1))-1)//(p**10-1) for p, e in factorint(n).items() if p > 2) - (n**10 if n % 2 else 0) # Chai Wah Wu, Mar 01 2022
Formula
a(n) = Sum_{d|n, d
G.f.: Sum_{k>=1} (2*k-1)^10 * x^(4*k-2) / (1 - x^(2*k-1)). - Ilya Gutkovskiy, Mar 02 2022
From Amiram Eldar, Oct 11 2023: (Start)
Sum_{k=1..n} a(k) ~ c * n^11, where c = (zeta(11)-1)/22 = 0.0000224631... . (End)