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 A026479 #14 May 26 2019 14:21:19 %S A026479 1,2,4,5,6,7,9,11,13,15,16,17,19,21,23,25,27,29,31,33,37,39,41,43,47, %T A026479 49,51,53,57,59,61,67,69,71,73,79,81,83,87,89,93,97,101,103,107,109, %U A026479 111,113,121,123,127,129,131,137,139,141,149,151,157,159,163 %N A026479 a(n) = least positive integer > a(n-1) and not a(i)*a(j)*a(k) for 1<=i<j<k<n. %H A026479 Robert Price, <a href="/A026479/b026479.txt">Table of n, a(n) for n = 1..203</a> %t A026479 a = {1, 2, 4}; no = {1 2 4}; %t A026479 Do[x = SelectFirst[Range[Last[a] + 1, 1000], ! MemberQ[no, #] &]; AppendTo[a, x]; no = Union[Times @@@ Subsets[a, {3}]], 200]; a (* _Robert Price_, May 26 2019 *) %Y A026479 There are six related sequences: A026477: 1 <= i < j < k < n starting 1,2,3; A026478: 1 <= i <= j <= k < n starting 1,2,3; A026479: 1 <= i < j < k < n starting 1,2,4; A026480: 1 <= i <= j <= k < n starting 1,2,4; A026481: 1 <= i < j < k < n starting 1,3,4; A026482: 1 <= i <= j <= k < n starting 1,3,4. %K A026479 nonn %O A026479 1,2 %A A026479 _Clark Kimberling_ %E A026479 a(31)-a(61) from _Robert Price_, May 26 2019