A280114 Partial sums of A175317 (Sum_{d|n} pod(d)).
1, 4, 8, 19, 25, 67, 75, 150, 181, 289, 301, 2079, 2093, 2299, 2533, 3632, 3650, 9551, 9571, 17687, 18139, 18637, 18661, 352279, 352410, 353102, 353862, 376028, 376058, 1186430, 1186462, 1220329, 1221433, 1222609, 1223847, 11309180, 11309218, 11310684
Offset: 1
Keywords
Crossrefs
Programs
-
Magma
[&+[&+[&*[b: b in Divisors(d)]: d in Divisors(k)]: k in [1..n]]: n in [1..1000]];
-
Mathematica
Accumulate@ Array[Sum[Times @@ Divisors@ d, {d, Divisors@ #}] &, 38] (* Michael De Vlieger, Dec 26 2016 *)
Formula
a(n) = Sum_{i=1..n} A175317(i).
Comments