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.

2, 9, 30, 93, 100, 282, 303, 310, 849, 912, 933, 940, 961, 1010, 2550, 2739, 2802, 2823, 2830, 2886, 2914, 3033, 3040, 3110, 3131, 7653, 8220, 8409, 8472, 8493, 8500, 8661, 8745, 8773, 8836, 9102, 9123, 9130, 9333, 9340, 9396, 9410, 9424, 9494

Offset: 1

Author

Clark Kimberling, Jul 03 2011

Keywords

• nonn

Comments

See A192476.

Crossrefs

Cf. A192476.

Programs

Mathematica

start = {2}; f[x_, y_] := (x + 1) (y + 1)
b[z_] :=
  Block[{w = z},
   Select[Union[
     Flatten[AppendTo[w,
       Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
      30000 &]];
t = NestList[b, start, 10][[-1]] (* A192518 *)