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

1, 2, 7, 13, 21, 30, 40, 51, 63, 77, 92, 108, 125, 143, 162, 182, 204, 227, 251, 276, 302, 329, 357, 386, 417, 449, 482, 516, 551, 587, 624, 662, 701, 742, 784, 827, 871, 916, 962, 1009, 1057, 1106, 1156, 1208, 1261, 1315, 1370, 1426, 1483, 1541

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A155212 A346870 A106675 * A184428 A262523 A360135

Adjacent sequences: A022943 A022944 A022945 * A022947 A022948 A022949

Keyword

nonn

Author

Clark Kimberling

Status

approved