cp's OEIS Frontend

A192518 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.

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