|
|
A332933
|
|
Sum of floor(d^(3/2)) where d runs through the divisors of n.
|
|
6
|
|
|
1, 3, 6, 11, 12, 22, 19, 33, 33, 45, 37, 71, 47, 73, 75, 97, 71, 125, 83, 142, 120, 142, 111, 210, 137, 181, 173, 229, 157, 286, 173, 278, 231, 271, 237, 390, 226, 319, 295, 416, 263, 460, 282, 441, 403, 424, 323, 606, 362, 523, 440, 563, 386, 661, 455, 670
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
a:= n-> add(floor(d^(3/2)), d=numtheory[divisors](n)):
|
|
MATHEMATICA
|
Table[DivisorSum[n, Floor[Sqrt[#^3]]&], {n, 80}]
|
|
PROG
|
(PARI) a(n)={sumdiv(n, d, sqrtint(d^3))} \\ Andrew Howroyd, Mar 02 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|