%I #7 Apr 04 2016 18:53:32
%S 1,2,7,13,21,30,40,51,63,77,92,108,125,143,162,182,204,227,251,276,
%T 302,329,357,386,417,449,482,516,551,587,624,662,701,742,784,827,871,
%U 916,962,1009,1057,1106,1156,1208,1261,1315,1370,1426,1483,1541
%N 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( ).
%H Ivan Neretin, <a href="/A022946/b022946.txt">Table of n, a(n) for n = 1..10000</a>
%t Fold[Append[#1, #1[[-1]] + Complement[Range[Max@#1 + 3], #1][[#2]]] &, {1, 2}, Range[3, 50]] (* _Ivan Neretin_, Apr 04 2016 *)
%Y Cf. A005228 and references therein.
%K nonn
%O 1,2
%A _Clark Kimberling_