login
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.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
STATUS
approved