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

3, 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,1

Comments

Here "complement" refers to the numbers not in the sequence.

Essentially the same as A022949. [R. J. Mathar, Oct 25 2008]

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]]] &, {3, 6}, Range[3, 50]] (* Ivan Neretin, Apr 05 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A022784 A025736 A288425 * A024918 A117245 A011914

Adjacent sequences: A022949 A022950 A022951 * A022953 A022954 A022955

Keyword

nonn

Author

Clark Kimberling

Status

approved