|
|
A064469
|
|
The even subsequence of A064413.
|
|
1
|
|
|
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
|
J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.
|
|
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];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|