login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A194203 Partial sums of A194202. 3
0, 1, 2, 4, 6, 9, 12, 15, 19, 24, 29, 35, 41, 47, 54, 62, 70, 79, 88, 98, 108, 119, 130, 141, 153, 166, 180, 194, 208, 223, 238, 254, 270, 287, 305, 323, 341, 360, 379, 398, 418, 439, 460, 482, 504, 526, 549, 573, 597, 622, 647, 673, 699, 726, 753, 780 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

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

MATHEMATICA

r = 2E;

a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]

Table[a[n], {n, 1, 90}]  (* A194202 *)

s[n_] := Sum[a[k], {k, 1, n}]

Table[s[n], {n, 1, 100}] (* A194203 *)

CROSSREFS

Cf. A194202.

Sequence in context: A234363 A194229 A194201 * A130025 A145802 A076271

Adjacent sequences:  A194200 A194201 A194202 * A194204 A194205 A194206

KEYWORD

nonn

AUTHOR

Clark Kimberling, Aug 19 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified October 22 11:28 EDT 2014. Contains 248397 sequences.