%I #12 Nov 08 2013 03:40:29
%S 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 31,32,33,34,35,36,37,39,41,43,44,45,46,47,49,50,53,55,56,57,58,59,60,
%U 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 Numbers that appear in A230871.
%C Union of rows of triangle A231330. - _Reinhard Zumkeller_, Nov 08 2013
%H Reinhard Zumkeller, <a href="/A230872/b230872.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a230872 n = a230872_list !! (n-1)
%o a230872_list = f [] a231330_tabf where
%o f ws (xs:xss) = us ++ f (merge vs xs) xss where
%o (us,vs) = span (< head xs) ws
%o merge us [] = us
%o merge [] vs = vs
%o merge us'@(u:us) vs'@(v:vs)
%o | u < v = u : merge us vs'
%o | u > v = v : merge us' vs
%o | otherwise = u : merge us vs
%o -- _Reinhard Zumkeller_, Nov 08 2013
%Y Cf. A230871, A230873 (complement).
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Nov 07 2013