A022956 Unique increasing sequence satisfying a(n) = a(n-4) + c(n-4); where c( ) is complement of a( ).

1, 2, 3, 4, 6, 9, 11, 14, 18, 22, 26, 30, 35, 41, 46, 51, 58, 65, 71, 78, 86, 94, 102, 110, 119, 128, 138, 147, 157, 167, 178, 189, 200, 211, 223, 236, 248, 260, 273, 288, 301, 314, 328, 344, 358, 373, 388, 405, 420, 436, 452, 471, 487, 504, 521, 541

Offset

1,2

Comments

Here "complement" refers to the numbers not in the sequence.

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Mathematica

Fold[Append[#1, #1[[#2]] + Complement[Range[Max@#1 + 1], #1][[#2]]] &, {1, 2, 3, 4}, Range[52]] (* Ivan Neretin, Apr 05 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A347657 A033069 A368481 * A331444 A039865 A304428

Adjacent sequences: A022953 A022954 A022955 * A022957 A022958 A022959

Keyword

nonn

Author

Clark Kimberling

Extensions

Missing term a(44)=344 added by Ivan Neretin, Apr 05 2016

Status

approved