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

1, 2, 4, 7, 10, 15, 19, 26, 31, 39, 45, 55, 62, 73, 82, 94, 104, 117, 128, 142, 155, 170, 184, 200, 216, 233, 250, 268, 286, 305, 324, 345, 365, 387, 408, 431, 454, 478, 502, 527, 552, 578, 604, 631, 658, 687, 715, 745, 774, 805, 835, 868, 899

Offset

1,2

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A306221 A095116 A027384 * A036702 A007983 A049640

Adjacent sequences: A022936 A022937 A022938 * A022940 A022941 A022942

Keyword

nonn

Author

Clark Kimberling

Status

approved