cp's OEIS Frontend

A379784 Similar to A379899 but start with 1 instead of 2.

%I A379784 #8 Jan 11 2025 14:36:36
%S A379784 1,5,3,7,11,19,23,31,13,17,29,37,41,53,61,73,89,97,101,109,113,43,47,
%T A379784 59,67,71,79,83,103,107,127,131,139,151,163,167,179,191,199,211,223,
%U A379784 227,239,251,263,271,283,307,311,331,347,359,367,379,383,137,149,157,173,181,193,197,229,233,241,257,269,277,281,293,313
%N A379784 Similar to A379899 but start with 1 instead of 2.
%H A379784 Alois P. Heinz, <a href="/A379784/b379784.txt">Table of n, a(n) for n = 1..20000</a>
%p A379784 b:= proc(n) option remember; `if`(n<1, {}, b(n-1) union {a(n)}) end:
%p A379784 a:= proc(n) option remember; local c, p; p:= infinity;
%p A379784       for c from a(n-1)+4 by 4 while p=infinity do
%p A379784         p:= min(numtheory[factorset](c) minus b(n-1)) od; p
%p A379784     end: a(1):=1:
%p A379784 seq(a(n), n=1..200);  # _Alois P. Heinz_, Jan 11 2025
%Y A379784 Cf. A379899.
%K A379784 nonn
%O A379784 1,2
%A A379784 _N. J. A. Sloane_, Jan 11 2025