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

2, 3, 6, 8, 13, 17, 23, 28, 35, 42, 50, 58, 68, 77, 88, 98, 110, 122, 135, 148, 162, 177, 192, 208, 224, 241, 258, 277, 295, 315, 334, 355, 375, 398, 419, 443, 465, 490, 513, 539, 564, 591, 617, 645, 672, 701, 729, 760, 789, 821, 851, 884, 915

Offset

1,1

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A036957 A319390 A251260 * A068491 A364796 A239952

Adjacent sequences: A022940 A022941 A022942 * A022944 A022945 A022946

Keyword

nonn

Author

Clark Kimberling

Status

approved