login
A022949
a(n) = a(n-1) + c(n) for n >= 3, a( ) increasing, given a(1)=1 a(2)=6; where c( ) is complement of a( ).
2
1, 6, 10, 15, 22, 30, 39, 50, 62, 75, 89, 105, 122, 140, 159, 179, 200, 223, 247, 272, 298, 325, 353, 382, 413, 445, 478, 512, 547, 583, 620, 658, 698, 739, 781, 824, 868, 913, 959, 1006, 1054, 1103, 1154, 1206, 1259, 1313, 1368, 1424, 1481, 1539
OFFSET
1,2
LINKS
MATHEMATICA
Fold[Append[#1, #1[[-1]] + Complement[Range[Max@#1 + 3], #1][[#2]]] &, {1, 6}, Range[3, 50]] (* Ivan Neretin, Apr 05 2016 *)
CROSSREFS
Cf. A005228 and references therein.
Sequence in context: A315283 A099981 A315284 * A049694 A285766 A157344
KEYWORD
nonn
STATUS
approved