cp's OEIS Frontend

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.

A026479 a(n) = least positive integer > a(n-1) and not a(i)*a(j)*a(k) for 1<=i

This page as a plain text file.
%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