login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A228939 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. 1

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)