A194240 Partial sums of A194239.

0, 0, 1, 3, 5, 7, 9, 12, 16, 20, 24, 29, 34, 40, 46, 53, 60, 68, 77, 86, 95, 105, 116, 128, 140, 152, 165, 179, 193, 207, 221, 236, 252, 268, 284, 300, 317, 335, 353, 371, 390, 410, 430, 451, 472, 493, 515, 538, 561, 585, 609, 634, 660, 686, 712, 739, 767

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A194239.

Sequence in context: A118015 A265057 A122643 * A265058 A265059 A349828

Adjacent sequences: A194237 A194238 A194239 * A194241 A194242 A194243

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved