%I #13 Apr 05 2016 10:46:46
%S 3,6,10,15,22,30,39,50,62,75,89,105,122,140,159,179,200,223,247,272,
%T 298,325,353,382,413,445,478,512,547,583,620,658,698,739,781,824,868,
%U 913,959,1006,1054,1103,1154,1206,1259,1313,1368,1424,1481,1539
%N a(n) = a(n-1) + c(n) for n >= 3, a( ) increasing, given a(1)=3 a(2)=6; where c( ) is complement of a( ).
%C Here "complement" refers to the numbers not in the sequence.
%C Essentially the same as A022949. [_R. J. Mathar_, Oct 25 2008]
%H Ivan Neretin, <a href="/A022952/b022952.txt">Table of n, a(n) for n = 1..10000</a>
%t Fold[Append[#1, #1[[-1]] + Complement[Range[Max@#1 + 3], #1][[#2]]] &, {3, 6}, Range[3, 50]] (* _Ivan Neretin_, Apr 05 2016 *)
%Y Cf. A005228 and references therein.
%K nonn
%O 1,1
%A _Clark Kimberling_
|