login
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( ).
1
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
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
KEYWORD
nonn
STATUS
approved