%I #9 Apr 05 2016 10:26:02
%S 1,8,13,19,26,35,45,56,68,82,97,113,130,148,168,189,211,234,258,283,
%T 310,338,367,397,428,460,493,527,563,600,638,677,717,758,800,843,887,
%U 933,980,1028,1077,1127,1178,1230,1283,1337,1392,1449,1507,1566
%N a(n) = a(n-1) + c(n+1) for n >= 3, a( ) increasing, given a(1)=1, a(2)=8; where c( ) is complement of a( ).
%C Here "complement" refers to the numbers not in the sequence.
%H Ivan Neretin, <a href="/A022954/b022954.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]]] &, {1, 8}, Range[3, 50]] (* _Ivan Neretin_, Apr 05 2016 *)
%Y Cf. A005228 and references therein.
%K nonn
%O 1,2
%A _Clark Kimberling_