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

2, 4, 5, 10, 12, 18, 21, 29, 34, 43, 49, 59, 66, 78, 86, 100, 109, 124, 134, 150, 161, 178, 191, 209, 223, 242, 258, 278, 295, 316, 334, 356, 375, 398, 419, 443, 465, 490, 513, 540, 564, 592, 617, 646, 672, 702, 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, 4}, Range[2, 52]] (* Ivan Neretin, Apr 05 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A177186 A260385 A355149 * A370593 A241822 A133732

Adjacent sequences: A022941 A022942 A022943 * A022945 A022946 A022947

Keyword

nonn

Author

Clark Kimberling

Status

approved