

A332933


Sum of floor(d^(3/2)) where d runs through the divisors of n.


5



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

Table of n, a(n) for n=1..56.


MAPLE

a:= n> add(floor(d^(3/2)), d=numtheory[divisors](n)):
seq(a(n), n=1..60); # Alois P. Heinz, Mar 02 2020


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

Cf. A058269, A086671, A332931, A332932, A332934, A332935.
Sequence in context: A073159 A000419 A178890 * A115821 A115767 A058269
Adjacent sequences: A332930 A332931 A332932 * A332934 A332935 A332936


KEYWORD

nonn


AUTHOR

Harvey P. Dale, Mar 02 2020


STATUS

approved



