cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A228855 Nodes of tree generated as follows: (2,3) is an edge, and if (x,y) is an edge, then (y,y+x) and (y,2y+x) are edges.

This page as a plain text file.
%I A228855 #16 Jun 20 2018 19:18:36
%S A228855 2,3,5,8,11,13,18,19,21,27,29,30,31,34,41,44,46,47,49,50,55,65,67,68,
%T A228855 71,73,75,76,79,80,81,89,100,101,106,108,109,111,112,115,116,117,119,
%U A228855 121,123,128,129,131,144,153,157,163,165,166,171,172,173,175,176
%N A228855 Nodes of tree generated as follows: (2,3) is an edge, and if (x,y) is an edge, then (y,y+x) and (y,2y+x) are edges.
%H A228855 Ivan Neretin, <a href="/A228855/b228855.txt">Table of n, a(n) for n = 1..10000</a>
%e A228855 Taking the first generation of edges of the tree to be G(1) = {(2,3)}, the edge (2,3) grows G(2) = {(3,5), (3,8)}, which grows G(3) = {(5,8), (5,13), (8,11),(8,19)}, ... Expelling duplicate nodes and sorting leave {2,3,5,8,11,13,...}.
%t A228855 f[x_, y_] := {{y, x + y}, {y, x + 2 y}}; x = 2; y = 3; t = {{x, y}};
%t A228855 u = Table[t = Flatten[Map[Apply[f, #] &, t], 1], {12}]; v = Flatten[u];
%t A228855 w = Flatten[Prepend[Table[v[[2 k]], {k, 1, Length[v]/2}], {x, y}]];
%t A228855 Sort[Union[w]]
%Y A228855 Cf. A141832, A228853, A228854, A228856.
%K A228855 nonn,easy
%O A228855 1,1
%A A228855 _Clark Kimberling_, Sep 05 2013