%I #14 Oct 01 2018 11:52:28
%S 2,4,6,8,10,12,14,16,18,20,25,27,29,31,33,35,37,39,41,44,46,48,50,52,
%T 54,56,58,60,63,65,67,69,71,73,75,77,80,82,84,86,89,91,93,95,97,99,
%U 102,104,106,108,110,112,115,117,119,121,123,125,128,130,133,135
%N Indices of even numbers in A098550.
%C A098550(a(n)) mod 2 = 0;
%C a(n+1) > a(n) + 1;
%C there are infinitely many even terms in A098550, for proof: see comment #4 in A098550.
%H Reinhard Zumkeller, <a href="/A251237/b251237.txt">Table of n, a(n) for n = 1..10000</a>
%H David L. Applegate, Hans Havermann, Bob Selcoe, Vladimir Shevelev, N. J. A. Sloane, and Reinhard Zumkeller, <a href="http://arxiv.org/abs/1501.01669">The Yellowstone Permutation</a>, arXiv preprint arXiv:1501.01669, 2015 and <a href="https://cs.uwaterloo.ca/journals/JIS/VOL18/Sloane/sloane9.html">J. Int. Seq. 18 (2015) 15.6.7</a>.
%t f[lst_] := Block[{k = 4}, While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]];
%t Position[Nest[f, {1, 2, 3}, 140], _?EvenQ] // Flatten (* _Jean-François Alcover_, Oct 01 2018, after _Robert G. Wilson v_ in A098550 *)
%o (Haskell)
%o a251237 n = a251237_list !! (n-1)
%o a251237_list = filter (even . a098550) [1..]
%Y Cf. A098550, A005843, A251238, A251393.
%Y First row of array A251716.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Dec 02 2014
|