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 A193711 #21 Apr 04 2025 04:17:55
%S A193711 1,4,8,14,23,33,48,64,85,110,138,174,219,268,323,387,453,531,612,703,
%T A193711 803,908,1028,1149,1285,1429,1582,1751,1922,2112,2308,2518,2743,2974,
%U A193711 3227,3483,3759,4048,4348,4672,4997,5348,5709,6087,6487,6893,7328,7769,8234
%N A193711 Partial sums of the union of squares and triangular numbers.
%H A193711 Reinhard Zumkeller, <a href="/A193711/b193711.txt">Table of n, a(n) for n = 1..10000</a>
%F A193711 a(n) = Sum_{k=1..n} A005214(k).
%F A193711 a(n) ~ c * n^3, where c = 1 - 2*sqrt(2)/3 = 0.0571909... . - _Amiram Eldar_, Apr 04 2025
%t A193711 Module[{upto=500,sq,tr},sq=Range[Floor[Sqrt[upto]]]^2;tr=Accumulate[ Range[ Floor[ (Sqrt[1+8*upto]-1)/2]]];Accumulate[Union[Join[tr,sq]]]] (* _Harvey P. Dale_, Jun 24 2018 *)
%o A193711 (Haskell)
%o A193711 a193711 n = a193711_list !! (n-1)
%o A193711 a193711_list = scanl1 (+) a005214_list :: [Integer]
%Y A193711 Cf. A000217, A000290, A000292, A000330, A005214.
%K A193711 nonn
%O A193711 1,2
%A A193711 _Reinhard Zumkeller_, Aug 03 2011
%E A193711 Program and b-file corrected by _Reinhard Zumkeller_, Aug 04 2011