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

1, 7, 11, 16, 22, 30, 39, 49, 61, 74, 88, 103, 120, 138, 157, 177, 198, 221, 245, 270, 296, 323, 351, 380, 411, 443, 476, 510, 545, 581, 618, 656, 696, 737, 779, 822, 866, 911, 957, 1004, 1052, 1102, 1153, 1205, 1258, 1312, 1367, 1423, 1480, 1538

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A284485 A089997 A129188 * A364442 A334456 A293343

Adjacent sequences: A022947 A022948 A022949 * A022951 A022952 A022953

Keyword

nonn

Author

Clark Kimberling

Status

approved