A064469 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..16384

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

Index entries for sequences related to EKG sequence

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

CROSSREFS

Sequence in context: A189498 A384185 A129567 * A057700 A337182 A236020

Adjacent sequences: A064466 A064467 A064468 * A064470 A064471 A064472

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Oct 05 2001

STATUS

approved