A022942 a(n) = a(n-2) + c(n-1) for n >= 3, a( ) increasing, given a(1)=1, a(2)=2; where c( ) is complement of a( ).

1, 2, 5, 8, 12, 17, 22, 28, 35, 42, 50, 58, 68, 77, 88, 98, 111, 122, 136, 148, 163, 177, 193, 208, 225, 241, 259, 277, 296, 315, 335, 355, 376, 398, 420, 443, 466, 490, 514, 539, 565, 591, 618, 645, 673, 701, 730, 760, 790, 821, 852, 884, 916

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 + 2], #1][[#2]]] &, {1, 2}, Range[2, 52]] (* Ivan Neretin, Apr 04 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A214047 A241566 A002960 * A183861 A024534 A011974

Adjacent sequences: A022939 A022940 A022941 * A022943 A022944 A022945

Keyword

nonn

Author

Clark Kimberling

Status

approved