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.

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

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