A194174 Partial sums of A194173.

0, 1, 2, 4, 6, 9, 12, 16, 20, 24, 29, 35, 41, 48, 55, 63, 71, 79, 88, 98, 108, 119, 131, 143, 156, 169, 182, 196, 210, 225, 240, 256, 273, 290, 308, 326, 344, 363, 382, 402, 423, 444, 466, 488, 511, 534, 558, 582, 606, 631, 657, 683, 710, 737, 765, 793

Offset

1,3

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Mathematica

r = Sqrt[6];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]   (* A194173 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]  (* A194174 *)

Crossrefs

Cf. A194173.

Sequence in context: A061536 A095114 A062048 * A168048 A075354 A194164

Adjacent sequences: A194171 A194172 A194173 * A194175 A194176 A194177

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved