login
A191288
Increasing sequence generated by these rules: 1 is in a, and if x is in a then 2x and floor((x^2)/3) are in a.
2
0, 1, 2, 4, 5, 8, 10, 16, 20, 21, 32, 33, 40, 42, 64, 66, 80, 84, 85, 128, 132, 133, 147, 160, 168, 170, 256, 264, 266, 294, 320, 336, 340, 341, 363, 512, 528, 532, 533, 588, 640, 672, 680, 682, 726, 1024, 1056, 1064, 1066, 1176, 1280, 1344, 1360, 1364, 1365, 1452, 2048, 2112, 2128, 2132, 2133, 2352, 2408, 2560, 2688, 2720
OFFSET
1,3
COMMENTS
See A191203.
LINKS
EXAMPLE
1 -> {0,2} -> 4 -> {5,8} -> {10,16,21} -> ...
MATHEMATICA
g=13; Union[Flatten[NestList[{2#, Floor[(#^2)/3]}&, 1, g]]]
(* A191288; use g>12 to get all of first 60 terms *)
CROSSREFS
Cf. A191203.
Sequence in context: A191203 A216686 A114652 * A181666 A067943 A067937
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
EXTENSIONS
Definition corrected by Han Guoniu, Oct 11 2012
STATUS
approved