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

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

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

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: A000419 A353716 A178890 * A115821 A115767 A058269

Adjacent sequences: A332930 A332931 A332932 * A332934 A332935 A332936

Keyword

nonn

Author

Harvey P. Dale, Mar 02 2020

Status

approved