|
%I #8 Sep 10 2019 10:36:21
%S 0,1,2,4,6,9,13,17,22,27,33,39,46,54,62,71,80,90,100,111,123,135,148,
%T 161,175,190,205,221,237,254,271,289,308,327,347,367,388,409,431,454,
%U 477,501,525,550,575,601,628,655,683,711,740,770,800,831
%N [1/r]+[2/r]+...+[n/r], where r=sqrt(3) and []=floor.
%C A183143 + A183144 = A000217 (the triangular numbers).
%F [1/r]+[2/r]+...+[n/r], where r=sqrt(3) and []=floor.
%t Accumulate[Floor[Range[60]/Sqrt[3]]] (* _Harvey P. Dale_, Sep 10 2019 *)
%o (PARI) default(realprecision,100); r=sqrt(3); for(n=1,99,print1(sum(k=1,n,floor(k/r)),", "))
%Y Cf. A183142, A183144, A183136.
%K nonn
%O 1,3
%A _Clark Kimberling_, Dec 26 2010
|
