A194170 Partial sums of A194169.

0, 0, 1, 3, 5, 7, 10, 14, 18, 22, 27, 33, 39, 45, 52, 60, 68, 76, 84, 93, 103, 113, 124, 135, 147, 159, 172, 185, 199, 213, 228, 243, 259, 275, 291, 308, 325, 343, 362, 381, 401, 422, 443, 464, 486, 509, 532, 555, 579, 603, 628, 653, 678, 704, 731, 758

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A194169.

Sequence in context: A310020 A280433 A212986 * A194166 A054040 A011848

Adjacent sequences: A194167 A194168 A194169 * A194171 A194172 A194173

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved