A065057 Partial sums of A064413.

0, 1, 3, 7, 13, 16, 25, 37, 45, 55, 60, 75, 93, 107, 114, 135, 159, 175, 195, 217, 228, 261, 288, 318, 343, 378, 406, 432, 445, 484, 520, 552, 586, 603, 654, 696, 734, 753, 810, 855, 895, 939, 985, 1008, 1077, 1125, 1175, 1227, 1281, 1337, 1386

Offset: 0

Author

N. J. A. Sloane, Nov 07 2001

Keywords

• nonn

Links

• J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, arXiv:math/0204011 [math.NT], 2002.
• J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.
• Index entries for sequences related to EKG sequence

Programs

Mathematica

terms = 50;
ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];
EKG = Nest[ekg, {1, 2}, terms-2];
Prepend[Accumulate[EKG], 0] (* Jean-François Alcover, Sep 02 2018, after Robert G. Wilson v in A064413 *)