cp's OEIS Frontend

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

%I A192523 #5 Mar 30 2012 18:57:34
%S A192523 2,4,10,24,28,66,70,82,164,180,192,196,208,244,446,458,486,490,522,
%T A192523 538,570,574,586,622,730,1104,1144,1244,1256,1292,1320,1336,1340,1368,
%U A192523 1372,1452,1456,1468,1512,1548,1564,1612,1704,1708,1720,1756,1864
%N A192523 Monotonic ordering of set S generated by these rules:  if x and y are in S then 2xy-x-y is in S, and 2 is in S.
%t A192523 start = {2}; f[x_, y_] := 2 x*y - x - y
%t A192523 b[x_] :=
%t A192523   Block[{w = x},
%t A192523    Select[Union[
%t A192523      Flatten[AppendTo[w,
%t A192523        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192523       5000 &]];
%t A192523 t = NestList[b, start, 10][[-1]] (* A192523 *)
%t A192523 t/2 (* A192524 *)
%t A192523 Table[t[[i]] - t[[i - 1]], {i, 2, Length[t]}]  (* differences *)
%Y A192523 Cf. A192476.
%K A192523 nonn
%O A192523 1,1
%A A192523 _Clark Kimberling_, Jul 03 2011