%I #4 Mar 30 2012 18:57:35
%S 1,2,5,10,12,25,30,50,60,62,75,125,150,155,187,250,300,310,312,360,
%T 375,387,467,625,750,775,780,900,935,937,967,1167,1250,1500,1550,1560,
%U 1562,1800,1860,1875,1935,1937,1950,2250,2335,2337,2342,2417,2917
%N Monotonic ordering of set S generated by these rules: if x and y are in S then 2xy+floor(xy/2) is in S, and 1 is in S.
%t start = {1}; f[x_, y_] := 2 x*y + Floor[x*y/2]
%t b[x_] :=
%t Block[{w = x},
%t Select[Union[
%t Flatten[AppendTo[w,
%t Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t 6000 &]];
%t t = FixedPoint[b, start] (* A192539 *)
%Y Cf. A192476.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jul 04 2011
|