This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A191324 #7 May 17 2018 17:24:34 %S A191324 1,2,4,5,7,8,11,13,14,17,20,22,23,26,31,34,35,40,41,44,47,52,53,61,62, %T A191324 67,68,71,79,80,92,94,95,101,103,104,107,119,121,122,125,134,139,142, %U A191324 143,152,155,157,158,161,179,182,184,185,188,202,203,206,209,214,215,229,233,236,238,239,242,269,274,277,278,283,284,287,304 %N A191324 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [3x/2]+1 and 3x+2 are in a, where [ ]=floor. %C A191324 See A191323. %H A191324 Ivan Neretin, <a href="/A191324/b191324.txt">Table of n, a(n) for n = 1..10000</a> %e A191324 1 -> 2,5 -> 4,8,17 -> %t A191324 h = 3; i = 1; j = 3; k = 2; f = 1; g = 12; %t A191324 a = Union[Flatten[NestList[{Floor[h #/2] + i, j # + k} &, f, g]]] (* A191324 *) %Y A191324 Cf. A191323. %K A191324 nonn %O A191324 1,2 %A A191324 _Clark Kimberling_, May 30 2011