cp's OEIS Frontend

A191326 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [3x/2] and [7x/2] are in a, where [ ]=floor.

%I A191326 #10 May 17 2018 17:23:51
%S A191326 1,3,4,6,9,10,13,14,15,19,21,22,28,31,33,35,42,45,46,49,52,63,66,67,
%T A191326 69,73,77,78,94,98,99,100,103,108,109,115,117,122,141,147,148,150,154,
%U A191326 157,161,162,163,171,172,175,182,183,211,220,222,225,231,234,235,241,243,244,255,256,258,262,269,273,274,316,329,330,333,337,343
%N A191326 Increasing sequence generated by these rules:  a(1)=1, and if x is in a then [3x/2] and [7x/2] are in a, where [ ]=floor.
%C A191326 See A191323.
%H A191326 Ivan Neretin, <a href="/A191326/b191326.txt">Table of n, a(n) for n = 1..10000</a>
%e A191326 1 -> 3 -> 4,10 -> 6,14,15,35 ->
%t A191326 h = 3; i = 0; j = 7; k = 0; f = 1; g = 15;
%t A191326 Union[Flatten[NestList[{Floor[h #/2] + i, Floor[j #/2] + k} &, f, g]]]
%t A191326 (* A191326 *)
%Y A191326 Cf. A191323.
%K A191326 nonn
%O A191326 1,2
%A A191326 _Clark Kimberling_, May 30 2011
%E A191326 Missing terms added by _Ivan Neretin_, May 17 2018