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

1, 3, 4, 6, 9, 12, 13, 18, 19, 27, 28, 36, 39, 40, 42, 54, 57, 58, 60, 63, 81, 84, 85, 87, 90, 94, 108, 117, 120, 121, 126, 127, 130, 135, 141, 162, 171, 174, 175, 180, 181, 189, 190, 195, 202, 211, 243, 252, 255, 256, 261, 262, 270, 271, 282, 283, 285, 292, 303, 316, 324, 351, 360, 363, 364, 378, 381, 382, 384, 390, 391, 393, 405

Offset

1,2

Comments

See A191203.

Links

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

Example

1 -> 3 -> 4,9 -> 6,12,13,27 ->

Mathematica

g=15; Union[Flatten[NestList[{Floor[3#/2], 3#} &, 1, g]]]
(* A191287; use g>14 to get all of first 60 terms *)

Crossrefs

Cf. A191203.

Sequence in context: A367477 A022297 A010430 * A353983 A260109 A283777

Adjacent sequences: A191284 A191285 A191286 * A191288 A191289 A191290

Keyword

nonn

Author

Clark Kimberling, May 29 2011

Status

approved