login
A191285
Increasing sequence S generated by these rules: 1 is in S, and if x is in S then 3x and floor((x^2)/2) are in S.
2
0, 1, 3, 4, 8, 9, 12, 24, 27, 32, 36, 40, 72, 81, 96, 108, 120, 216, 243, 288, 324, 360, 364, 512, 648, 729, 800, 864, 972, 1080, 1092, 1536, 1944, 2187, 2400, 2592, 2916, 3240, 3276, 3280, 4608, 5832, 6561, 7200, 7776, 8748, 9720, 9828, 9840, 13824, 17496, 19683, 21600, 23328, 26244, 29160, 29484, 29520, 29524
OFFSET
1,3
COMMENTS
See A191203.
LINKS
EXAMPLE
1 -> 0,3 -> 4,8,9,27 ->
MATHEMATICA
g=12; Union[Flatten[NestList[{3#, Floor[(#^2)/2]}&, 1, g]]]
(* A191285; use g>11 to get all of first 60 terms *)
CROSSREFS
Cf. A191203.
Sequence in context: A058593 A374046 A310017 * A219658 A047204 A050035
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
STATUS
approved