login
A024933
a(n) = Sum_{k=1..n} k*[ (n/k)*[ (n/k)*[ n/k ] ] ].
0
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
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
KEYWORD
nonn
STATUS
approved