A191323 - OEIS

%I #21 May 17 2018 17:24:13

%S 1,2,4,7,11,13,17,20,22,26,31,34,40,47,52,61,67,71,79,92,94,101,103,

%T 107,119,121,139,142,152,155,157,161,179,182,184,202,209,214,229,233,

%U 236,238,242,269,274,277,283,304,310,314,322,344,350,355,358,364,404,412,416,418,425,427,457,466,472,484,517,526,533,538,547,553

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

%C This sequence represents a class of sequences generated by rules of the form "a(1)=1, and if x is in a then floor(hx+i) and floor(jx+k) are in a, where h and j are rational numbers and i and k are positive integers."  In the following examples, the floor function is denoted by [ ].

%C A191323:  [3x/2]+1, 3x+1

%C A191324:  [3x/2]+1, 3x+2

%C A191325:  [3x/2], [5x/2]

%C A191326:  [3x/2], [7x/2]

%C A191327:  [5x/2], [7x/2]

%C A191328:  [5x/3], [7x/3]

%C Other families of sequences generated by "rules" are listed at A191803, A191106, A101113 and A191203.

%H Ivan Neretin, <a href="/A191323/b191323.txt">Table of n, a(n) for n = 1..10000</a>

%e 1 -> 2,4 -> 6,7,13 -> 10,11,19,20,22,40 -> ...

%t h = 3; i = 1; j = 3; k = 1; f = 1; g = 12;

%t a=Union[Flatten[NestList[{Floor[h#/2]+i,j#+k}&,f,g]]]

%t (* A191323 *)

%Y Cf. A190503, A191100, A191113, A191203.

%K nonn

%O 1,2

%A _Clark Kimberling_, May 30 2011