login
A191284
Increasing sequence generated by these rules: a(1)=1, and if x is in a then floor(3x/2) and 2x are in a.
2
1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18, 19, 24, 26, 27, 28, 32, 36, 38, 39, 40, 42, 48, 52, 54, 56, 57, 58, 60, 63, 64, 72, 76, 78, 80, 81, 84, 85, 87, 90, 94, 96, 104, 108, 112, 114, 116, 117, 120, 121, 126, 127, 128, 130, 135, 141, 144, 152, 156, 160, 162, 168, 170, 171, 174, 175, 180, 181, 188, 189, 190, 192, 195, 202, 208, 211, 216
OFFSET
1,2
COMMENTS
See A191203.
LINKS
EXAMPLE
1 -> 2,3 -> 4,6 -> 8,9,12 ->
MATHEMATICA
g=16; Union[Flatten[NestList[{Floor[3 #/2], 2#} &, 1, g]]]
(* A191284; use g>15 to get all of first 60 terms *)
CROSSREFS
Cf. A191203.
Sequence in context: A206716 A010385 A095037 * A071403 A010407 A035240
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
STATUS
approved