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( ).

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

Ivan Neretin, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A022946 A022947 A022948 * A022950 A022951 A022952

Keyword

nonn

Author

Clark Kimberling

Status

approved