|
%I #7 Apr 04 2016 18:25:53
%S 6,7,9,12,16,21,29,39,50,63,77,92,109,127,146,166,188,211,235,260,286,
%T 313,341,371,402,434,467,501,536,572,609,647,687,728,770,813,857,902,
%U 948,995,1043,1092,1143,1195,1248,1302,1357,1413,1470,1528
%N a(n) = a(n-1) + c(n-1) for n >= 2, a( ) increasing, given a(1)=6; where c( ) is complement of a( ).
%H Ivan Neretin, <a href="/A022938/b022938.txt">Table of n, a(n) for n = 1..10000</a>
%t Fold[Append[#1, #1[[#2]] + Complement[Range@Max@#1, #1][[#2]]] &, {6}, Range[50]] (* _Ivan Neretin_, Apr 04 2016 *)
%Y Cf. A005228 and references therein.
%K nonn
%O 1,1
%A _Clark Kimberling_
|
