cp's OEIS Frontend

A251546 a(n) = smallest even number not in {A098550(1), A098550(2), ..., A098550(n)}.

%I A251546 #27 Aug 01 2018 09:21:18
%S A251546 2,4,4,6,6,6,6,6,6,10,10,10,10,10,10,18,18,18,18,18,18,18,18,18,18,18,
%T A251546 18,18,18,18,24,24,30,30,30,30,30,30,38,38,40,40,40,40,40,40,40,46,46,
%U A251546 46,46,46,46,46,46,54,54,54
%N A251546 a(n) = smallest even number not in {A098550(1), A098550(2), ..., A098550(n)}.
%C A251546 A251416(n) = Min{a(n), A251549(n)}. - _Reinhard Zumkeller_, Dec 19 2014
%H A251546 Chai Wah Wu, <a href="/A251546/b251546.txt">Table of n, a(n) for n = 1..10000</a>
%H A251546 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 [math.NT], 2015 and <a href="https://cs.uwaterloo.ca/journals/JIS/VOL18/Sloane/sloane9.html">J. Int. Seq. 18 (2015) 15.6.7</a>.
%t A251546 terms = 100;
%t A251546 f[lst_List] := Block[{k = 4}, While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]];
%t A251546 A098550 = Nest[f, {1, 2, 3}, terms - 3];
%t A251546 a[1] = 2;
%t A251546 a[n_] := a[n] = For[k = a[n-1], True, k += 2, If[FreeQ[A098550[[1;;n]], k], Return[k]]];
%t A251546 Array[a, terms] (* _Jean-François Alcover_, Aug 01 2018, after _Robert G. Wilson v_ *)
%o A251546 (Haskell)
%o A251546 import Data.List ((\\))
%o A251546 a251546 n = head $ [2, 4 ..] \\ filter even (take n a098550_list)
%o A251546 -- _Reinhard Zumkeller_, Dec 19 2014
%Y A251546 Cf. A098550, A247253, A251416, A251417, A251547, A251548, A251549, A251550, A251551, A251552.
%Y A251546 See also A251557, A251558, A251559.
%K A251546 nonn
%O A251546 1,1
%A A251546 _N. J. A. Sloane_, Dec 18 2014