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

0, 0, 1, 2, 4, 6, 8, 11, 14, 18, 22, 27, 32, 37, 43, 49, 56, 63, 71, 79, 87, 96, 105, 115, 125, 135, 146, 157, 169, 181, 194, 207, 220, 234, 248, 263, 278, 294, 310, 326, 343, 360, 378, 396, 415, 434, 453, 473, 493, 514, 535, 556, 578, 600, 623

Offset: 1

Author

Clark Kimberling, Dec 26 2010

Keywords

• nonn

Comments

A183143 + A183144 = A000217 (the triangular numbers).

Crossrefs

Cf. A183142, A183143.

Programs

Mathematica

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

Formula

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