cp's OEIS Frontend

A232646 Sequence (or tree or triangle) generated by these rules: 1 is in S, and if x is in S, then 2*x and 5*x + 3 are in S, and duplicates are deleted as they occur.

%I A232646 #7 Dec 04 2016 19:46:33
%S A232646 1,2,5,4,10,25,8,20,50,125,16,40,100,250,625,32,80,200,500,1250,3125,
%T A232646 64,160,400,1000,2500,6250,15625,128,320,800,2000,5000,12500,31250,
%U A232646 78125,256,640,1600,4000,10000,25000,62500,156250,390625,512,1280,3200,8000
%N A232646 Sequence (or tree or triangle) generated by these rules: 1 is in S, and if x is in S, then 2*x and 5*x + 3 are in S, and duplicates are deleted as they occur.
%C A232646 Let S be the set of numbers defined by these rules:  1 is in S, and if x is in S, then 2*x and 5*x  are in S.  Then S is the set of positive integers, which arise in generations.  Deleting duplicates as they occur, the generations are given by g(1) = (1), g(2) = (2,5), g(3) = (4,10,25), etc.  Concatenating these gives A232646, a permutation of the positive integers.  For n > 2, the number of numbers in g(n) is n.  It is helpful to show the results as a tree with the terms of S as nodes, an edge from x to 2*x if  2*x has not already occurred, and an edge from x to 3*x if 3*x  has not already occurred.
%H A232646 Clark Kimberling, <a href="/A232646/b232646.txt">Table of n, a(n) for n = 1..1000</a>
%F A232646 Counting the top row as row 0 and writing <i,j> for (2^i)*(5*j) , the numbers in row n are <n,0>, <n-1,1>, ..., <0,n>.
%e A232646 Each x begets 2*x and 5*x, but if either has already occurred it is deleted.  Thus, 1 begets 2 and 5; then 2 begets 4 and 10, and 5 begets only 25, so that g(3) = (4,10,25).  Writing generations as rows results in a triangle whose first five rows are as follows:
%e A232646 1
%e A232646 2 .... 5
%e A232646 4 .... 10 ... 25
%e A232646 8 .... 20 ... 50 ... 125
%e A232646 16 ... 40 ... 100 .. 250 .. 625
%t A232646 x = {1}; Do[x = DeleteDuplicates[Flatten[Transpose[{x, 2*x, 5*x}]]], {12}]; x  (* _Peter J. C. Moses_, Nov 27 2013 *)
%Y A232646 Cf. A232559, A232639, A036561.
%K A232646 nonn,easy
%O A232646 1,2
%A A232646 _Clark Kimberling_, Nov 28 2013