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,2

Comments

See A191323.

Links

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

Example

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

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 *)

Crossrefs

Cf. A191323.

Sequence in context: A282429 A375242 A111040 * A147807 A022559 A049781

Adjacent sequences: A191321 A191322 A191323 * A191325 A191326 A191327

Keyword

nonn

Author

Clark Kimberling, May 30 2011

Status

approved