login
A194172
Partial sums of A194171.
2
0, 1, 2, 4, 7, 10, 13, 17, 22, 27, 32, 38, 44, 51, 58, 66, 74, 82, 91, 101, 112, 123, 135, 147, 160, 173, 187, 201, 216, 231, 247, 263, 279, 295, 312, 330, 348, 367, 387, 407, 427, 448, 470, 492, 514, 537, 561, 585, 609, 634, 660, 686, 712, 739, 766, 793
OFFSET
1,3
MATHEMATICA
r = 1/2 + Sqrt[5];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}] (* A194171 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}] (* A194172 *)
CROSSREFS
Cf. A194171.
Sequence in context: A061465 A368784 A126022 * A173537 A049983 A168112
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 18 2011
STATUS
approved