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 A065057 #10 Sep 02 2018 08:23:48
%S A065057 0,1,3,7,13,16,25,37,45,55,60,75,93,107,114,135,159,175,195,217,228,
%T A065057 261,288,318,343,378,406,432,445,484,520,552,586,603,654,696,734,753,
%U A065057 810,855,895,939,985,1008,1077,1125,1175,1227,1281,1337,1386
%N A065057 Partial sums of A064413.
%H A065057 J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="https://arxiv.org/abs/math/0204011">The EKG sequence</a>, arXiv:math/0204011 [math.NT], 2002.
%H A065057 J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="https://projecteuclid.org/euclid.em/1057777433">The EKG sequence</a>, Exper. Math. 11 (2002), 437-446.
%H A065057 <a href="/index/Ed#EKG">Index entries for sequences related to EKG sequence</a>
%t A065057 terms = 50;
%t A065057 ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];
%t A065057 EKG = Nest[ekg, {1, 2}, terms-2];
%t A065057 Prepend[Accumulate[EKG], 0] (* _Jean-François Alcover_, Sep 02 2018, after _Robert G. Wilson v_ in A064413 *)
%K A065057 nonn
%O A065057 0,3
%A A065057 _N. J. A. Sloane_, Nov 07 2001