cp's OEIS Frontend

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

%I A192525 #5 Mar 30 2012 18:57:34
%S A192525 3,12,57,264,282,1299,1317,1407,6060,6384,6474,6492,6582,7032,29775,
%T A192525 29865,30279,30297,31809,31917,32349,32367,32457,32907,35157,138864,
%U A192525 139368,146730,146820,148350,148764,148872,148890,149304,149322,151374
%N A192525 Monotonic ordering of set S generated by these rules:  if x and y are in S then 2xy-x-y is in S, and 3 is in S.
%t A192525 start = {3}; f[x_, y_] := 2 x*y - x - y
%t A192525 b[x_] :=
%t A192525   Block[{w = x},
%t A192525    Select[Union[
%t A192525      Flatten[AppendTo[w,
%t A192525        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192525       500000 &]];
%t A192525 t = NestList[b, start, 12][[-1]] (* A192525 *)
%t A192525 t/3 (* A192526 *)
%t A192525 Table[t[[i]] - t[[i - 1]], {i, 2, Length[t]}]  (* differences *)
%Y A192525 Cf. A192476.
%K A192525 nonn
%O A192525 1,1
%A A192525 _Clark Kimberling_, Jul 03 2011