A194172 Partial sums of A194171.

0, 1, 2, 4, 7, 10, 13, 17, 22, 27, 32, 38, 44, 51, 58, 66, 74, 82, 91, 101, 112, 123, 135, 147, 160, 173, 187, 201, 216, 231, 247, 263, 279, 295, 312, 330, 348, 367, 387, 407, 427, 448, 470, 492, 514, 537, 561, 585, 609, 634, 660, 686, 712, 739, 766, 793

Offset

1,3

Links

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

Mathematica

r = 1/2 + Sqrt[5];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]   (* A194171 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]  (* A194172 *)

Crossrefs

Cf. A194171.

Sequence in context: A061465 A368784 A126022 * A173537 A049983 A168112

Adjacent sequences: A194169 A194170 A194171 * A194173 A194174 A194175

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved