A194176 Partial sums of A194175.

0, 0, 1, 3, 5, 8, 12, 16, 21, 26, 31, 37, 43, 49, 56, 63, 71, 80, 89, 99, 110, 121, 133, 145, 157, 170, 184, 198, 212, 227, 242, 257, 273, 290, 307, 325, 343, 362, 381, 401, 421, 442, 463, 485, 507, 530, 553, 577, 602, 627, 653, 679, 706, 733, 761, 789

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A194175.

Sequence in context: A023562 A194207 A236538 * A186494 A371702 A194180

Adjacent sequences: A194173 A194174 A194175 * A194177 A194178 A194179

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved