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 A173185 #31 Jan 03 2022 21:47:24
%S A173185 1,2,4,10,22,82,142,562,1402,3922,6442,34162,61882,422242,782602,
%T A173185 1142962,1863682,14115922,26368162,259160722,491953282,724745842,
%U A173185 957538402,6311767282,11665996162,38437140562,65208284962,145521718162,225835151362,2554924714162
%N A173185 Partial sums of A003418.
%C A173185 From _Antti Karttunen_, Feb 27 2014: (Start)
%C A173185 For all n >= 4, a(n) mod 10 = 2 (as A003418(5) = 60, the first multiple of ten in that sequence).
%C A173185 For all n >= 24, a(n) mod 100 = 62 (as A003418(25) = 26771144400, the first multiple of one hundred in that sequence).
%C A173185 Cf. also A236856.
%C A173185 a(n-1) gives the position of the first element of row n in irregular tables like A238280.
%C A173185 (End)
%H A173185 Alois P. Heinz, <a href="/A173185/b173185.txt">Table of n, a(n) for n = 0..2297</a> (first 251 terms from Antti Karttunen)
%F A173185 a(n) = Sum_{i=0..n} A003418(i).
%p A173185 b:= proc(n) b(n):= `if`(n=0, 1, ilcm(n, b(n-1))) end:
%p A173185 a:= proc(n) a(n):= `if`(n<0, 0, a(n-1) +b(n)) end:
%p A173185 seq(a(n), n=0..35); # _Alois P. Heinz_, Mar 31 2018
%t A173185 Table[If[n == 0, 1, LCM @@ Range[n]], {n, 0, 50}] // Accumulate (* _Jean-François Alcover_, Jan 03 2022 *)
%o A173185 (Scheme) (define (A173185 n) (if (< n 1) 1 (+ (A173185 (- n 1)) (A003418 n))))
%o A173185 (PARI) a(n) = sum(k=0, n, lcm(vector(k, i, i))); \\ _Michel Marcus_, Mar 13 2018
%Y A173185 One more than A236856.
%Y A173185 Cf. A002944, A003418, A003422, A102910, A093880, A133233, A231721, A236857, A236858, A238280.
%K A173185 easy,nonn
%O A173185 0,2
%A A173185 _Jonathan Vos Post_, Feb 12 2010
%E A173185 Missing term a(9)=3922 inserted by _Antti Karttunen_, Feb 27 2014