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,4

Comments

A183143 + A183144 = A000217 (the triangular numbers).

Links

Table of n, a(n) for n=1..55.

Formula

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

Mathematica

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

Crossrefs

Cf. A183142, A183143.

Sequence in context: A359275 A032514 A011858 * A194162 A084627 A321531

Adjacent sequences: A183141 A183142 A183143 * A183145 A183146 A183147

Keyword

nonn

Author

Clark Kimberling, Dec 26 2010

Status

approved