|
%I #6 Mar 30 2012 18:57:34
%S 2,9,30,93,100,282,303,310,849,912,933,940,961,1010,2550,2739,2802,
%T 2823,2830,2886,2914,3033,3040,3110,3131,7653,8220,8409,8472,8493,
%U 8500,8661,8745,8773,8836,9102,9123,9130,9333,9340,9396,9410,9424,9494
%N Monotonic ordering of set S generated by these rules: if x and y are in S then (x+1)(y+1) is in S, and 2 is in S.
%C See A192476.
%t start = {2}; f[x_, y_] := (x + 1) (y + 1)
%t b[z_] :=
%t Block[{w = z},
%t Select[Union[
%t Flatten[AppendTo[w,
%t Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t 30000 &]];
%t t = NestList[b, start, 10][[-1]] (* A192518 *)
%Y Cf. A192476.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jul 03 2011
|
