Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A022957
Unique increasing sequence satisfying a(n) = a(n-5) + c(n-5); where c( ) is complement of a( ).
2
1, 2, 3, 4, 5, 7, 10, 12, 15, 18, 21, 26, 29, 34, 38, 43, 49, 53, 59, 65, 71, 79, 84, 91, 98, 106, 115, 121, 130, 138, 147, 157, 165, 175, 184, 194, 205, 215, 226, 236, 248, 260, 271, 283, 294, 308, 321, 333, 346, 358, 374, 388, 401, 415, 428, 446, 461
OFFSET
1,2
COMMENTS
Here "complement" refers to the numbers not in the sequence.
LINKS
MATHEMATICA
Fold[Append[#1, #1[[#2]] + Complement[Range[Max@#1 + 1], #1][[#2]]] &, {1, 2, 3, 4, 5}, Range[52]] (* Ivan Neretin, Apr 05 2016 *)
CROSSREFS
Cf. A005228 and references therein.
Sequence in context: A365093 A122975 A089597 * A036028 A036033 A124243
KEYWORD
nonn
STATUS
approved