

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

See A191203.


LINKS

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


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
Adjacent sequences: A191285 A191286 A191287 * A191289 A191290 A191291


KEYWORD

nonn


AUTHOR

Clark Kimberling, May 29 2011


EXTENSIONS

Definition corrected by Han Guoniu, Oct 11 2012


STATUS

approved



