A064469 The even subsequence of A064413.

2, 4, 6, 12, 8, 10, 18, 14, 24, 16, 20, 22, 30, 28, 26, 36, 32, 34, 42, 38, 40, 44, 46, 48, 50, 52, 54, 56, 60, 70, 58, 66, 62, 72, 64, 68, 74, 78, 76, 80, 82, 84, 88, 86, 90, 100, 92, 94, 96, 98, 104, 102, 108, 106, 114, 110, 112, 116, 118, 120

Offset: 1

Author

N. J. A. Sloane, Oct 05 2001

Keywords

• nonn

Links

• 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

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}, 200];
Cases[EKG, ?EvenQ] (* _Jean-François Alcover, Feb 07 2019, after Robert G. Wilson v in A064413 *)