A194244 Partial sums of A194243.

0, 0, 1, 2, 4, 7, 10, 14, 18, 23, 28, 33, 39, 45, 52, 59, 67, 76, 85, 95, 105, 116, 127, 138, 150, 162, 175, 188, 202, 217, 232, 248, 264, 281, 299, 317, 335, 354, 373, 393, 413, 433, 454, 475, 497, 520, 543, 566, 590, 614, 639, 665, 691, 717, 744, 771

Offset

1,4

Links

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

Mathematica

r = 2-Sqrt[2];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]    (* A194243 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194244 *)

Crossrefs

Cf. A194243.

Sequence in context: A214048 A328659 A088236 * A014616 A184674 A227353

Adjacent sequences: A194241 A194242 A194243 * A194245 A194246 A194247

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved