%I #4 Mar 30 2012 18:57:35
%S 1,3,13,27,183,217,507,757,819,1249,2187,33673,34047,36037,39159,
%T 47307,47749,50079,53677,100467,120289,141267,257557,258579,263809,
%U 271467,383319,414157,573807,575329,583059,594217,671581,673227,681577
%N 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 1 is in S.
%C See A192476.
%t start = {1}; f[x_, y_] := x^2 + y^2 + x*y
%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 2000000 &]];
%t t = FixedPoint[b, start] (* A192535 *)
%Y Cf. A192476.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jul 04 2011
|