The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Mar 30 2012 18:57:35
%S 2,6,34,54,1090,1126,1734,2790,2866,3154,4374,1161586,1170726,1184866,
%T 1187014,1240390,1249890,1264534,1266754,1782150,1842306,1901814,
%U 2962854,2978434,3001590,3005026,3249826,3298390
%N Monotonic ordering of set S generated by these rules: if x and y are in S then x^2+y^2-xy/2 is in S, and 2 is in S.
%C See A192476.
%t start = {2}; f[x_, y_] := x^2 + y^2 - 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 4000000 &]];
%t t = FixedPoint[b, start] (* A192537 *)
%t t/2 (* A192538 *)
%Y Cf. A192476, A192538.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jul 04 2011