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,3

Comments

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

Links

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

Prog

(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

Crossrefs

Cf. A230871, A230873 (complement).

Sequence in context: A359528 A365819 A359908 * A346151 A247832 A047368

Adjacent sequences: A230869 A230870 A230871 * A230873 A230874 A230875

Keyword

nonn

Author

N. J. A. Sloane, Nov 07 2013

Status

approved