A055004 - OEIS

%I #13 Jun 09 2016 06:20:52

%S 0,0,1,5,15,33,64,107,171,252,359,490,656,844,1079,1346,1656,2006,

%T 2415,2859,3373,3927,4550,5233,5993,6793,7690,8653,9697,10809,12028,

%U 13299,14695,16158,17731,19398,21174,23018,25017,27108,29318,31616

%N Boris Stechkin's function.

%D R. K. Guy, Unsolved Problems Number Theory, A17.

%H G. C. Greubel, <a href="/A055004/b055004.txt">Table of n, a(n) for n = 0..1000</a>

%p A055004 := proc(n) local m; add((m-1)*floor(n*(m-1)/m),m=2..n); end proc;

%t Table[Sum[(k - 1)*Floor[n*(k - 1)/k], {k, 2, n}], {n, 0, 100}] (* _G. C. Greubel_, Jun 06 2016 *)

%Y Cf. A063483.

%K nonn

%O 0,4

%A _N. J. A. Sloane_, Jun 11 2000