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

1, 2, 3, 5, 8, 10, 14, 19, 22, 27, 34, 38, 44, 52, 58, 65, 75, 82, 90, 101, 110, 119, 131, 141, 151, 164, 176, 187, 201, 215, 227, 242, 257, 270, 287, 303, 317, 335, 352, 367, 386, 405, 421, 441, 461, 478, 500, 521, 539, 562, 584, 603, 628, 651

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}, Range[50]] (* Ivan Neretin, Apr 05 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A183871 A211542 A368052 * A363076 A254297 A306972

Adjacent sequences: A022952 A022953 A022954 * A022956 A022957 A022958

Keyword

nonn

Author

Clark Kimberling

Status

approved