A194254 Partial sums of A194253.

0, 1, 2, 4, 6, 9, 12, 16, 20, 25, 30, 36, 42, 48, 55, 63, 72, 81, 91, 101, 112, 123, 135, 147, 159, 171, 184, 198, 212, 227, 243, 260, 277, 295, 313, 332, 351, 370, 389, 409, 429, 450, 472, 494, 517, 540, 564, 588, 613, 638, 664, 690, 717, 744, 771, 799

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A194253.

Sequence in context: A168048 A075354 A194164 * A086378 A088900 A371972

Adjacent sequences: A194251 A194252 A194253 * A194255 A194256 A194257

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved