Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
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( ).
4
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
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
KEYWORD
nonn
STATUS
approved