A194214 a(n) = floor(Sum_{k=1..n} <2*k*Pi/3>), where < > = fractional part.

0, 0, 0, 0, 1, 1, 2, 3, 4, 5, 5, 5, 5, 5, 6, 6, 7, 8, 8, 9, 10, 10, 11, 11, 11, 12, 12, 13, 14, 14, 15, 15, 15, 16, 16, 16, 17, 17, 18, 19, 20, 21, 21, 21, 21, 22, 22, 23, 23, 24, 25, 26, 26, 26, 26, 26, 27, 27, 28, 28, 29, 30, 31, 31, 31, 31, 32, 32, 32, 33, 34, 35, 35

Offset

1,7

Links

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

Mathematica

r = 2Pi/3;
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]  (* A194214 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}] (* A194215 *)

Crossrefs

Cf. A194214.

Sequence in context: A102676 A087846 A067854 * A251416 A087829 A078474

Adjacent sequences: A194211 A194212 A194213 * A194215 A194216 A194217

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved