|
|
A064473
|
|
Where the odd terms appear in A064413 (if it begins at 2).
|
|
1
|
|
|
4, 5, 9, 10, 13, 14, 19, 20, 21, 23, 24, 27, 28, 32, 33, 36, 37, 38, 42, 43, 49, 50, 52, 53, 56, 57, 60, 61, 66, 67, 68, 73, 74, 75, 77, 80, 81, 83, 84, 88, 89, 92, 95, 96, 99, 100, 106, 107, 108, 110, 111, 114, 115, 117, 118, 123, 124, 127, 128
(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] // Rest;
Position[EKG, _?OddQ] // Flatten (* _Jean-François Alcover_, Feb 07 2019, after _Robert G. Wilson v_ in A064413 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
_N. J. A. Sloane_, Oct 05 2001
|
|
STATUS
|
approved
|
|
|
|