|
%I #10 Jun 04 2023 11:46:49
%S 0,1,6,16,33,56,88,125,172,227,291,363,445,533,633,743,861,989,1128,
%T 1275,1434,1601,1779,1967,2170,2376,2597,2827,3072,3324,3588,3859,
%U 4143,4439,4749,5070,5399,5738,6091,6458,6834,7221,7618,8027,8448,8884,9329,9783
%N Sum_{k=1..n} floor(n^2/k).
%C Sums of rows of triangle in A118013.
%C a(n) = Sum(A118013(n,k): 1<=k<=n}.
%C Generalized sequence: a(n)= Sum_{k=1..n} floor((k*t + n^2)/k) = t*n + Sum_{k=1..n} floor(n^2/k) = t*A000027(n)+ A118014(n). This sequence has t=0. [From _Ctibor O. Zizka_, Feb 14 2009]
%F a(n) ~ (gamma + log(n)) * n^2, where gamma is the Euler-Mascheroni constant A001620. - _Vaclav Kotesovec_, Dec 22 2020
%p Digits:=200; f:=n->add(floor( n^2/k ),k=1..n );
%t Table[Total[Floor[n^2/Range[n]]],{n,0,60}] (* _Harvey P. Dale_, Jun 04 2023 *)
%Y Cf. A006218, A069627.
%K nonn
%O 0,3
%A _Reinhard Zumkeller_, Apr 10 2006
%E Edited by _N. J. A. Sloane_, Oct 28 2008
|
