|
%I #8 Nov 17 2016 03:37:31
%S 1,2,3,4,6,7,8,12,13,14,16,24,26,28,31,32,43,48,52,56,57,62,64,86,96,
%T 104,112,114,124,128,133,157,172,183,192,208,224,228,241,248,256,266,
%U 314,344,366,384,416,448,456,482,496,512,532,553,628,651,688,732,757,768,832,896,912,931,964,992,993,1024,1064,1106,1256,1302
%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="/A191281/b191281.txt">Table of n, a(n) for n = 1..10000</a>
%e 1 -> 2 -> 3,4 -> 6,7,8,13 ->
%t g = 12; Union[Flatten[NestList[{2 #, #^2 - # + 1} &, 1, g]]]
%t (* A191281; use g>11 to get all of first 60 terms *)
%Y Cf. A191203.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 29 2011
|
