|
%I #8 May 17 2018 21:20:38
%S 1,2,3,4,5,6,7,9,10,12,13,15,17,18,19,22,25,27,28,30,32,33,37,40,42,
%T 45,47,48,49,55,60,62,63,67,70,72,73,75,80,82,90,92,93,94,100,105,108,
%U 109,112,117,120,122,123,135,137,138,139,141,150,155,157,162,163,167,168,175,180,182,183,184,187,200,202,205,207,208,211,225
%N Increasing sequence generated by these rules: a(1)=1, and if x is in a then [3x/2] and [5x/2] are in a, where [ ]=floor.
%C See A191323.
%H Ivan Neretin, <a href="/A191325/b191325.txt">Table of n, a(n) for n = 1..10000</a>
%e 1 -> 2 -> 3,5 -> 4,7,12 -> 6,10,17,18,30 ->
%t h = 3; i = 0; j = 5; k = 0; f = 1; g = 15;
%t Union[Flatten[NestList[{Floor[h #/2] + i, Floor[j #/2] + k} &, f, g]]]
%t (* A191325 *)
%Y Cf. A191323.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 30 2011
|
