cp's OEIS Frontend

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

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