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 A191328 #7 May 17 2018 17:28:56 %S A191328 1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,18,21,23,25,26,30,32,35,37,38,41, %T A191328 42,43,49,50,53,58,60,61,63,68,70,71,74,81,83,86,88,95,96,98,100,101, %U A191328 105,113,114,116,118,123,135,138,140,142,143,146,147,158,160,163,165,166,168,172,175,188,189,190,193,196,200,205,221,224,225 %N A191328 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [5x/3] and [7x/3] are in a, where [ ]=floor. %C A191328 See A191323. %H A191328 Ivan Neretin, <a href="/A191328/b191328.txt">Table of n, a(n) for n = 1..10000</a> %e A191328 1 ->2 -> 3,4 -> 5,7,9 -> %t A191328 h = 5; i = 0; j = 7; k = 0; f = 1; g = 15; %t A191328 Union[Flatten[NestList[{Floor[h #/3] + i, Floor[j #/3] + k} &, f, g]]] %t A191328 (* A191328 *) %Y A191328 Cf. A191323. %K A191328 nonn %O A191328 1,2 %A A191328 _Clark Kimberling_, May 30 2011