login
Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x and x^2+x+1 are in a.
2

%I #7 Nov 17 2016 03:37:39

%S 1,2,3,4,6,7,8,12,13,14,16,21,24,26,28,32,42,43,48,52,56,57,64,73,84,

%T 86,96,104,112,114,128,146,157,168,172,183,192,208,211,224,228,256,

%U 273,292,314,336,344,366,384,416,422,448,456,463,512,546,584,601,628,672,688,703,732,768,813,832,844,896,912,926,1024,1057,1092

%N Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x and x^2+x+1 are in a.

%C See A191203.

%H Ivan Neretin, <a href="/A191282/b191282.txt">Table of n, a(n) for n = 1..10000</a>

%e 1 -> 2,3 -> 4,6,7,13 ->

%t g = 11; Union[Flatten[NestList[{2 #, #^2 + # + 1} &, 1, g]]]

%t (* A191282; use g>10 to get all of first 60 terms *)

%Y Cf. A191203.

%K nonn

%O 1,2

%A _Clark Kimberling_, May 29 2011