A194248 Partial sums of A194247.

0, 1, 2, 3, 5, 8, 11, 14, 18, 23, 28, 33, 39, 46, 53, 60, 68, 77, 87, 97, 107, 118, 129, 141, 153, 166, 179, 193, 207, 222, 237, 253, 269, 286, 304, 322, 341, 360, 379, 399, 419, 439, 460, 482, 504, 526, 549, 573, 597, 622, 647, 673, 700, 727, 754, 782

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A194247.

Sequence in context: A225087 A194221 A054925 * A325515 A126097 A024611

Adjacent sequences: A194245 A194246 A194247 * A194249 A194250 A194251

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved