|
%I #7 May 17 2018 17:29:18
%S 1,2,3,5,7,10,12,17,24,25,30,35,42,59,60,62,75,84,87,105,122,147,150,
%T 155,187,206,210,217,262,294,304,305,367,375,387,427,467,514,515,525,
%U 542,654,655,721,735,759,760,762,917,937,967,1029,1064,1067,1167,1284,1285,1287,1312,1354,1355,1494,1634,1635,1637,1799,1802
%N Increasing sequence generated by these rules: a(1)=1, and if x is in a then [5x/2] and [7x/2] are in a, where [ ]=floor.
%C See A191323.
%H Ivan Neretin, <a href="/A191327/b191327.txt">Table of n, a(n) for n = 1..10000</a>
%t h = 5; i = 0; j = 7; k = 0; f = 1; g = 15;
%t Union[Flatten[NestList[{Floor[h #/2] + i, Floor[j #/2] + k} &, f, g]]]
%t (* A191327 *)
%Y Cf. A191323.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 30 2011
|
