A232054 Complement of A056875.

2, 4, 7, 8, 12, 15, 16, 17, 22, 25, 26, 29, 31, 32, 35, 37, 39, 45, 48, 49, 52, 54, 56, 57, 61, 63, 64, 66, 67, 72, 75, 77, 78, 81, 86, 87, 90, 94, 98, 99, 100, 104, 107, 108, 110, 112, 115, 116, 117, 120, 124, 126, 127, 128, 130, 135, 137, 138, 140, 144

Offset: 1

Author

Reinhard Zumkeller, Nov 17 2013

Keywords

• nonn

Links

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

Programs

Haskell

a232054 n = a232054_list !! (n-1)
a232054_list = c [1..] a056875_list where
   c (u:us) vs'@(v:vs) = if u == v then c us vs else u : c us vs'

Mathematica

nmax = 200; S = Range[nmax]; S0 = {}; i = 1;
While[S != S0, ii = NestWhileList[#+S[[#]]&, i+S[[i]], # <= Length[S]&]; S0 = S; S = Delete[S, List /@ Select[ii, # <= Length[S]&]]; i++];
Complement[Range[nmax], S] (* Jean-François Alcover, Dec 11 2019 *)