cp's OEIS Frontend

A192531 Monotonic ordering of set S generated by these rules: if x and y are in S then 3xy-2x-2y is in S, and 2 is in S.

%I A192531 #4 Mar 30 2012 18:57:34
%S A192531 2,4,12,32,44,112,124,172,312,384,432,444,492,684,1064,1112,1232,1244,
%T A192531 1472,1532,1712,1724,1772,1964,2732,2944,3112,3784,3832,4072,4192,
%U A192531 4252,4312,4432,4444,4912,4924,4972,5632,5824,5884,6124,6832,6844,6892
%N A192531 Monotonic ordering of set S generated by these rules:  if x and y are in S then 3xy-2x-2y is in S, and 2 is in S.
%C A192531 See A192476.
%t A192531 start = {2}; f[x_, y_] := 3 x*y - 2 x - 2 y
%t A192531 b[x_] :=
%t A192531   Block[{w = x},
%t A192531    Select[Union[
%t A192531      Flatten[AppendTo[w,
%t A192531        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192531       30000 &]];
%t A192531 t = FixedPoint[b, start] (* A192531 *)
%t A192531 t/2   (* A192532 *)
%Y A192531 Cf. A192476, A192532.
%K A192531 nonn
%O A192531 1,1
%A A192531 _Clark Kimberling_, Jul 04 2011