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

1, 2, 4, 5, 7, 8, 11, 13, 14, 17, 20, 22, 23, 26, 31, 34, 35, 40, 41, 44, 47, 52, 53, 61, 62, 67, 68, 71, 79, 80, 92, 94, 95, 101, 103, 104, 107, 119, 121, 122, 125, 134, 139, 142, 143, 152, 155, 157, 158, 161, 179, 182, 184, 185, 188, 202, 203, 206, 209, 214, 215, 229, 233, 236, 238, 239, 242, 269, 274, 277, 278, 283, 284, 287, 304

Offset: 1

Author

Clark Kimberling, May 30 2011

Keywords

• nonn

Comments

See A191323.

Examples

			1 -> 2,5 -> 4,8,17 ->
		

Links

• Ivan Neretin, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A191323.

Programs

Mathematica

h = 3; i = 1; j = 3; k = 2; f = 1; g = 12;
a = Union[Flatten[NestList[{Floor[h #/2] + i, j # + k} &, f, g]]]  (* A191324 *)