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

Author

Harvey P. Dale, Mar 02 2020

Keywords

• nonn

Links

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

Crossrefs

Cf. A058269, A086671, A332931, A332932, A332934, A332935.

Programs

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}]

PARI

a(n)={sumdiv(n, d, sqrtint(d^3))} \\ Andrew Howroyd, Mar 02 2020