A230872 Numbers that appear in A230871.

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, 31, 32, 33, 34, 35, 36, 37, 39, 41, 43, 44, 45, 46, 47, 49, 50, 53, 55, 56, 57, 58, 59, 60, 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

Offset: 1

Author

N. J. A. Sloane, Nov 07 2013

Keywords

• nonn

Comments

Union of rows of triangle A231330. - Reinhard Zumkeller, Nov 08 2013

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A230871, A230873 (complement).

Programs

Haskell

a230872 n = a230872_list !! (n-1)
a230872_list = f [] a231330_tabf where
   f ws (xs:xss) = us ++ f (merge vs xs) xss where
     (us,vs) = span (< head xs) ws
   merge us [] = us
   merge [] vs = vs
   merge us'@(u:us) vs'@(v:vs)
        | u < v = u : merge us vs'
        | u > v = v : merge us' vs
        | otherwise = u : merge us vs
-- Reinhard Zumkeller, Nov 08 2013