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

1, 10, 32, 87, 161, 309, 462, 737, 1043, 1477, 1890, 2610, 3221, 4079, 5049, 6235, 7329, 8958, 10306, 12317, 14213, 16370, 18400, 21586, 24118, 27216, 30414, 34325, 37580, 42520, 46226, 51315, 56165, 61495, 66809, 74030, 79519, 86179, 92862, 101454

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A155192 A229720 A350108 * A198646 A356277 A052210

Adjacent sequences: A024930 A024931 A024932 * A024934 A024935 A024936

Keyword

nonn

Author

Clark Kimberling

Status

approved