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 A026482 #11 May 26 2019 14:21:43 %S A026482 1,3,4,5,6,7,8,10,11,13,14,17,19,22,23,26,29,31,34,37,38,41,43,46,47, %T A026482 53,58,59,61,62,67,71,73,74,79,81,82,83,86,89,94,97,101,103,106,107, %U A026482 109,113,118,122,127,131,134,135,137,139,142,146 %N A026482 a(n) = least positive integer > a(n-1) and not equal to a(i)*a(j)*a(k) for 1<=i<=j<=k<n. %t A026482 a = {1, 3, 4}; no = {1 3 4}; %t A026482 Do[x = SelectFirst[Range[Last[a] + 1, 1000], ! MemberQ[no, #] &]; AppendTo[a, x]; no = Union[Times @@@ Tuples[a, {3}]], 60]; a (* _Robert Price_, May 26 2019 *) %Y A026482 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 A026482 nonn,easy %O A026482 1,2 %A A026482 _Clark Kimberling_ %E A026482 More terms from _Naohiro Nomoto_, Sep 15 2001