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

Links

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

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 *)

Prog

(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'

Crossrefs

Sequence in context: A060406 A001839 A087686 * A216431 A233271 A088413

Adjacent sequences: A232051 A232052 A232053 * A232055 A232056 A232057

Keyword

nonn

Author

Reinhard Zumkeller, Nov 17 2013

Status

approved