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

2, 3, 8, 14, 21, 30, 40, 51, 63, 76, 91, 107, 124, 142, 161, 181, 203, 226, 250, 275, 301, 328, 356, 385, 416, 448, 481, 515, 550, 586, 623, 661, 700, 741, 783, 826, 870, 915, 961, 1008, 1056, 1105, 1155, 1207, 1260, 1314, 1369, 1425, 1482, 1540

Offset

1,1

Comments

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

Links

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

Formula

a(n)=A022947(n), n>1. - R. J. Mathar, May 28 2008

Mathematica

Fold[Append[#1, #1[[-1]] + Complement[Range[Max@#1 + 3], #1][[#2]]] &, {2, 3}, Range[3, 50]] (* Ivan Neretin, Apr 05 2016 *)

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A369774 A331820 A368855 * A247124 A171237 A173149

Adjacent sequences: A022948 A022949 A022950 * A022952 A022953 A022954

Keyword

nonn

Author

Clark Kimberling

Status

approved