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 A194143 #9 Apr 18 2022 16:27:15 %S A194143 2,6,13,22,33,47,63,81,102,125,151,179,209,242,277,314,354,396,440, %T A194143 487,536,588,642,698,757,818,881,947,1015,1085,1158,1233,1311,1391, %U A194143 1473,1558,1645,1734,1826,1920,2017,2116,2217,2321,2427,2535,2646,2759 %N A194143 Sum{floor(j*(3+sqrt(3))/2) : 1<=j<=n}; n-th partial sum of Beatty sequence for (3+sqrt(3))/2. %H A194143 Harvey P. Dale, <a href="/A194143/b194143.txt">Table of n, a(n) for n = 1..1000</a> %t A194143 c[n_] := Sum[Floor[j*(3+Sqrt[3])/2], {j, 1, n}]; %t A194143 c = Table[c[n], {n, 1, 90}] %t A194143 Accumulate[Floor[(3+Sqrt[3])/2 Range[50]]] (* _Harvey P. Dale_, Apr 18 2022 *) %Y A194143 Cf. A054406 (Beatty sequence for (3+sqrt(3))/2). %K A194143 nonn %O A194143 1,1 %A A194143 _Clark Kimberling_, Aug 17 2011