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

%I #8 Mar 30 2018 13:52:51

%S 0,0,1,2,4,6,8,11,14,18,22,27,32,37,43,49,56,63,71,79,87,96,105,115,

%T 125,135,146,157,169,181,194,207,220,234,248,263,278,294,310,326,343,

%U 360,378,396,415,434,453,473,493,514,535,556,578,600,623

%N [1/s]+[2/s]+...+[n/s], where s=(3+sqrt(3))/2, []=floor.

%C A183143 + A183144 = A000217 (the triangular numbers).

%F [1/s]+[2/s]+...+[n/s], where s=(3+sqrt(3))/2, []=floor.

%t With[{c=(3+Sqrt[3])/2},Accumulate[Floor[Range[60]/c]]] (* _Harvey P. Dale_, Mar 30 2018 *)

%Y Cf. A183142, A183143.

%K nonn

%O 1,4

%A _Clark Kimberling_, Dec 26 2010