A024932 a(n) = Sum_{k=1..n} k*[ (n/k)*[ n/k ] ].

1, 6, 14, 31, 47, 81, 103, 153, 195, 260, 299, 401, 453, 542, 643, 761, 834, 999, 1078, 1266, 1397, 1548, 1650, 1932, 2068, 2257, 2444, 2707, 2831, 3203, 3331, 3629, 3873, 4128, 4375, 4830, 5017, 5309, 5574, 6066, 6266, 6756, 6971, 7416, 7858, 8177, 8431, 9140, 9418

Offset

1,2

Links

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

Mathematica

Table[Sum[k*Floor[n/k*Floor[n/k]], {k, 1, n}], {n, 1, 50}] (* Vaclav Kotesovec, May 28 2021 *)

Crossrefs

Sequence in context: A210000 A134067 A350107 * A273365 A271996 A199705

Adjacent sequences: A024929 A024930 A024931 * A024933 A024934 A024935

Keyword

nonn

Author

Clark Kimberling

Status

approved