cp's OEIS Frontend

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

%I A192533 #7 Jan 29 2016 11:18:44
%S A192533 2,4,12,16,112,124,144,208,228,256,11008,11344,12112,12324,12544,
%T A192533 13648,14032,14896,15132,15376,17152,18256,18688,19152,20176,20452,
%U A192533 20736,32512,32848,34048,38992,39088,39888,40192,40912,42448,42852,43264
%N A192533 Monotonic ordering of set S generated by these rules: if x and y are in S then x^2+y^2-xy is in S, and 2 is in S.
%C A192533 See A192476.
%t A192533 start = {2}; f[x_, y_] := x^2 + y^2 - x*y
%t A192533 b[x_] :=
%t A192533   Block[{w = x},
%t A192533    Select[Union[
%t A192533      Flatten[AppendTo[w,
%t A192533        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192533       80000 &]];
%t A192533 t = FixedPoint[b, start] (* A192533 *)
%t A192533 t/2 (* A192534 *)
%Y A192533 Cf. A192476, A192534.
%K A192533 nonn
%O A192533 1,1
%A A192533 _Clark Kimberling_, Jul 04 2011