cp's OEIS Frontend

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

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