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,3

Links

Table of n, a(n) for n=0..50.

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

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 *)

Crossrefs

Sequence in context: A192148 A151875 A117533 * A363636 A100807 A290400

Adjacent sequences: A065054 A065055 A065056 * A065058 A065059 A065060

Keyword

nonn

Author

N. J. A. Sloane, Nov 07 2001

Status

approved