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

Author

Clark Kimberling, May 29 2011

Keywords

• nonn

Comments

See A191203.

Examples

			1 -> {0,2} -> 4 -> {5,8} -> {10,16,21} -> ...
		

Links

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

Crossrefs

Cf. A191203.

Programs

Mathematica

g=13; Union[Flatten[NestList[{2#, Floor[(#^2)/3]}&,1,g]]]
(* A191288; use g>12 to get all of first 60 terms *)

Extensions

Definition corrected by Han Guoniu, Oct 11 2012