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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A194248 Partial sums of A194247. 2
0, 1, 2, 3, 5, 8, 11, 14, 18, 23, 28, 33, 39, 46, 53, 60, 68, 77, 87, 97, 107, 118, 129, 141, 153, 166, 179, 193, 207, 222, 237, 253, 269, 286, 304, 322, 341, 360, 379, 399, 419, 439, 460, 482, 504, 526, 549, 573, 597, 622, 647, 673, 700, 727, 754, 782 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

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

MATHEMATICA

r = 3-Sqrt[5];

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

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

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

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

CROSSREFS

Cf. A194247.

Sequence in context: A225087 A194221 A054925 * A325515 A126097 A024611

Adjacent sequences:  A194245 A194246 A194247 * A194249 A194250 A194251

KEYWORD

nonn

AUTHOR

Clark Kimberling, Aug 20 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 15 05:50 EST 2019. Contains 329144 sequences. (Running on oeis4.)