A194252 - OEIS

%I #5 Mar 30 2012 18:57:42

%S 0,0,1,2,4,6,8,11,14,18,23,28,33,39,45,52,60,68,76,85,94,104,115,126,

%T 137,149,161,174,188,202,217,232,248,265,282,299,316,334,352,371,390,

%U 409,429,449,470,492,514,536,559,582,606,631,656,681,707,733,760

%N Partial sums of A194251.

%t r = 3-Sqrt[8];

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

%t Table[a[n], {n, 1, 90}]    (* A194251 *)

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

%t Table[s[n], {n, 1, 100}]   (* A194252 *)

%Y Cf. A194251.

%K nonn

%O 1,4

%A _Clark Kimberling_, Aug 20 2011