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

1, 2, 3, 4, 5, 7, 10, 12, 15, 18, 21, 26, 29, 34, 38, 43, 49, 53, 59, 65, 71, 79, 84, 91, 98, 106, 115, 121, 130, 138, 147, 157, 165, 175, 184, 194, 205, 215, 226, 236, 248, 260, 271, 283, 294, 308, 321, 333, 346, 358, 374, 388, 401, 415, 428, 446, 461

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A365093 A122975 A089597 * A036028 A036033 A124243

Adjacent sequences: A022954 A022955 A022956 * A022958 A022959 A022960

Keyword

nonn

Author

Clark Kimberling

Status

approved