cp's OEIS Frontend

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

%I A022953 #9 Apr 05 2016 07:31:12
%S A022953 1,7,12,18,26,35,45,56,69,83,98,114,131,150,170,191,213,236,260,285,
%T A022953 312,340,369,399,430,462,495,529,565,602,640,679,719,760,802,845,889,
%U A022953 935,982,1030,1079,1129,1180,1232,1285,1339,1394,1451,1509,1568
%N A022953 a(n) = a(n-1) + c(n+1) for n >= 3, a( ) increasing, given a(1)=1, a(2)=7; where c( ) is complement of a( ).
%C A022953 Here "complement" refers to the numbers not in the sequence.
%H A022953 Ivan Neretin, <a href="/A022953/b022953.txt">Table of n, a(n) for n = 1..10000</a>
%t A022953 Fold[Append[#1, #1[[-1]] + Complement[Range[Max@#1 + 3], #1][[#2 + 1]]] &, {1, 7}, Range[3, 50]] (* _Ivan Neretin_, Apr 05 2016 *)
%Y A022953 Essentially same as A005228.
%K A022953 nonn
%O A022953 1,2
%A A022953 _Clark Kimberling_