login
[1/r]+[2/r]+...+[n/r], where r=sqrt(3) and []=floor.
4

%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