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