# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a064469
Showing 1-1 of 1

%I A064469 #8 Feb 07 2019 11:57:22
%S A064469 2,4,6,12,8,10,18,14,24,16,20,22,30,28,26,36,32,34,42,38,40,44,46,48,
%T A064469 50,52,54,56,60,70,58,66,62,72,64,68,74,78,76,80,82,84,88,86,90,100,
%U A064469 92,94,96,98,104,102,108,106,114,110,112,116,118,120
%N A064469 The even subsequence of A064413.
%H A064469 J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="http://arXiv.org/abs/math.NT/0204011">The EKG sequence</a>, Exper. Math. 11 (2002), 437-446.
%H A064469 <a href="/index/Ed#EKG">Index entries for sequences related to EKG sequence</a>
%t A064469 ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];
%t A064469 EKG = Nest[ekg, {1, 2}, 200];
%t A064469 Cases[EKG, _?EvenQ] (* _Jean-François Alcover_, Feb 07 2019, after _Robert G. Wilson v_ in A064413 *)
%K A064469 nonn
%O A064469 1,1
%A A064469 _N. J. A. Sloane_, Oct 05 2001

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE