A230873 Numbers that do not appear in A230871.

6, 14, 15, 20, 28, 38, 40, 42, 48, 51, 52, 54, 72, 78, 84, 86, 88, 90, 96, 102, 103, 108, 110, 113, 114, 120, 124, 125, 126, 127, 132, 138, 150, 156, 162, 164, 168, 174, 180, 197, 198, 204, 210, 216, 220, 222, 224, 228, 236, 238, 245, 248, 250, 252, 258, 262, 270, 276, 279, 285, 286, 295, 298, 304, 306, 310, 315, 316

Offset: 1

Author

N. J. A. Sloane, Nov 07 2013

Keywords

• nonn

Comments

Complement of A230872.

Links

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

Crossrefs

Cf. A230871, A230872.

Programs

Haskell

a230873 n = a230873_list !! (n-1)
a230873_list = f [0..] a230872_list where
   f (u:us) vs'@(v:vs) = if u == v then f us vs else u : f us vs'
-- Reinhard Zumkeller, Nov 08 2013