|
%I #13 Oct 08 2022 09:45:35
%S 1,3,6,11,12,22,19,33,33,45,37,71,47,73,75,97,71,125,83,142,120,142,
%T 111,210,137,181,173,229,157,286,173,278,231,271,237,390,226,319,295,
%U 416,263,460,282,441,403,424,323,606,362,523,440,563,386,661,455,670
%N Sum of floor(d^(3/2)) where d runs through the divisors of n.
%H Amiram Eldar, <a href="/A332933/b332933.txt">Table of n, a(n) for n = 1..10000</a>
%p a:= n-> add(floor(d^(3/2)), d=numtheory[divisors](n)):
%p seq(a(n), n=1..60); # _Alois P. Heinz_, Mar 02 2020
%t Table[DivisorSum[n,Floor[Sqrt[#^3]]&],{n,80}]
%o (PARI) a(n)={sumdiv(n, d, sqrtint(d^3))} \\ _Andrew Howroyd_, Mar 02 2020
%Y Cf. A058269, A086671, A332931, A332932, A332934, A332935.
%K nonn
%O 1,2
%A _Harvey P. Dale_, Mar 02 2020
|
