%I #11 Sep 14 2013 20:01:18
%S 1,2,4,5,8,10,16,20,29,32,50,68,80,125,128,145,256,320,416,500,544,
%T 640,866,1088,1250,1600,2048,2600,4205,4688,5120,6464,6800,8192,8320,
%U 15725,16640,21866,25000,25114,34816,36992,51200,66560,102656,128000,130000
%N Nodes of tree generated as follows: (1,2) is an edge, and if (x,y) is an edge, then (y,x*y) and (y,x^2 + y^2) are edges.
%e Taking the first generation of edges to be G(1) = {(1,2)}, the edge (1,2) grows G(2) = {(2,2), (2,5)}, which grows G(3) = {(2,4), (2,8), (5,10), (5,29)}, ... Expelling duplicate nodes and sorting leave (1, 2, 4, 5, 8, 10, 16, 20, 29, 32,...).
%t f[x_, y_] := {{y, x* y}, {y, x^2 + y^2}}; x = 1; y = 2; t = {{x, y}};
%t u = Table[t = Flatten[Map[Apply[f, #] &, t], 1], {18}]; v = Flatten[u];
%t w = Flatten[Prepend[Table[v[[2 k]], {k, 1, Length[v]/2}], {x, y}]];
%t Sort[Union[w]]
%Y Cf. A228853, A228939.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Sep 08 2013
|