cp's OEIS Frontend

A192537 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.

%I A192537 #4 Mar 30 2012 18:57:35
%S A192537 2,6,34,54,1090,1126,1734,2790,2866,3154,4374,1161586,1170726,1184866,
%T A192537 1187014,1240390,1249890,1264534,1266754,1782150,1842306,1901814,
%U A192537 2962854,2978434,3001590,3005026,3249826,3298390
%N A192537 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 A192537 See A192476.
%t A192537 start = {2}; f[x_, y_] := x^2 + y^2 - x*y/2
%t A192537 b[x_] :=
%t A192537   Block[{w = x},
%t A192537    Select[Union[
%t A192537      Flatten[AppendTo[w,
%t A192537        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192537       4000000 &]];
%t A192537 t = FixedPoint[b, start] (* A192537 *)
%t A192537 t/2 (* A192538 *)
%Y A192537 Cf. A192476, A192538.
%K A192537 nonn
%O A192537 1,1
%A A192537 _Clark Kimberling_, Jul 04 2011