This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A194238 #18 Dec 12 2024 11:30:23
%S A194238 0,1,2,3,5,7,10,13,16,20,24,29,35,41,48,55,62,70,78,86,95,104,114,124,
%T A194238 134,145,156,168,181,194,208,222,236,251,266,281,297,313,330,347,364,
%U A194238 382,400,419,439,459,480,501,522,544,566,588,611,634,658,682,706
%N A194238 Partial sums of A194237.
%H A194238 G. C. Greubel, <a href="/A194238/b194238.txt">Table of n, a(n) for n = 1..1000</a>
%H A194238 <a href="/index/Rec#order_18">Index entries for linear recurrences with constant coefficients</a>, signature (2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -2, 1).
%F A194238 From _Chai Wah Wu_, Jun 10 2020: (Start)
%F A194238 a(n) = 2*a(n-1) - a(n-2) + a(n-16) - 2*a(n-17) + a(n-18) for n > 18.
%F A194238 G.f.: x*(-x^14 - x^12 - x^11 - x^9 - x^6 - x^4 - x)/(x^18 - 2*x^17 + x^16 - x^2 + 2*x - 1). (End)
%t A194238 r = 3/8;
%t A194238 a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
%t A194238 Table[a[n], {n, 1, 90}] (* A194237 *)
%t A194238 s[n_] := Sum[a[k], {k, 1, n}]
%t A194238 Table[s[n], {n, 1, 100}] (* A194238 *)
%Y A194238 Cf. A194237.
%K A194238 nonn
%O A194238 1,3
%A A194238 _Clark Kimberling_, Aug 20 2011