login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A194228 Partial sums of A194227. 2
0, 0, 1, 2, 4, 7, 10, 13, 16, 20, 24, 29, 35, 41, 47, 53, 60, 67, 75, 84, 93, 102, 111, 121, 131, 142, 154, 166, 178, 190, 203, 216, 230, 245, 260, 275, 290, 306, 322, 339, 357, 375, 393, 411, 430, 449, 469, 490, 511, 532, 553, 575, 597, 620, 644, 668, 692 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
MATHEMATICA
r = 2/7;
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}] (* A194227 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}] (* A194228 *)
CROSSREFS
Cf. A194227.
Sequence in context: A135678 A001195 A295513 * A194236 A127762 A137281
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 | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 07:33 EDT 2024. Contains 371235 sequences. (Running on oeis4.)