cp's OEIS Frontend

A230872 Numbers that appear in A230871.

%I A230872 #12 Nov 08 2013 03:40:29
%S A230872 0,1,2,3,4,5,7,8,9,10,11,12,13,16,17,18,19,21,22,23,24,25,26,27,29,30,
%T A230872 31,32,33,34,35,36,37,39,41,43,44,45,46,47,49,50,53,55,56,57,58,59,60,
%U A230872 61,62,63,64,65,66,67,68,69,70,71,73,74,75,76,77,79,80,81,82,83,85,87,89,91,92,93,94,95,97,98,99
%N A230872 Numbers that appear in A230871.
%C A230872 Union of rows of triangle A231330. - _Reinhard Zumkeller_, Nov 08 2013
%H A230872 Reinhard Zumkeller, <a href="/A230872/b230872.txt">Table of n, a(n) for n = 1..10000</a>
%o A230872 (Haskell)
%o A230872 a230872 n = a230872_list !! (n-1)
%o A230872 a230872_list = f [] a231330_tabf where
%o A230872    f ws (xs:xss) = us ++ f (merge vs xs) xss where
%o A230872      (us,vs) = span (< head xs) ws
%o A230872    merge us [] = us
%o A230872    merge [] vs = vs
%o A230872    merge us'@(u:us) vs'@(v:vs)
%o A230872         | u < v = u : merge us vs'
%o A230872         | u > v = v : merge us' vs
%o A230872         | otherwise = u : merge us vs
%o A230872 -- _Reinhard Zumkeller_, Nov 08 2013
%Y A230872 Cf. A230871, A230873 (complement).
%K A230872 nonn
%O A230872 1,3
%A A230872 _N. J. A. Sloane_, Nov 07 2013