A191283 - OEIS

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

%S 1,2,3,4,6,8,10,12,16,20,21,24,32,36,40,42,48,55,64,72,78,80,84,96,

%T 110,128,136,144,156,160,168,192,210,220,231,256,272,288,300,312,320,

%U 336,384,420,440,462,512,528,544,576,600,624,640,666,672,768,820,840,880,903,924,1024,1056,1088,1152,1176,1200,1248,1280,1332

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

%C See A191203.

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

%e 1 -> 2 -> 3,4 -> 6,8,10 ->

%t g = 12; Union[Flatten[NestList[{2 #, (#^2 + #)/2} &, 1, g]]]

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

%Y Cf. A191203.

%K nonn

%O 1,2

%A _Clark Kimberling_, May 29 2011