A194242 Partial sums of A194241.

0, 1, 2, 3, 5, 7, 10, 14, 18, 23, 28, 33, 39, 45, 51, 58, 66, 74, 83, 92, 102, 112, 123, 134, 145, 157, 170, 183, 197, 212, 227, 243, 259, 275, 292, 309, 327, 346, 365, 385, 405, 425, 446, 467, 488, 510, 532, 555, 579, 603, 628, 653, 678, 704, 730, 757

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A194241.

Sequence in context: A167050 A308388 A019529 * A173538 A130053 A177277

Adjacent sequences: A194239 A194240 A194241 * A194243 A194244 A194245

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved