login
Numbers that appear in A230871.
4

%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