OFFSET
1,1
COMMENTS
For k > 2, the primorial number A034386(A072997(k)) = A002110(A072986(k)) is the least unitary k-abundant number, i.e., the least number m such that usigma(m) >= k*m, where usigma(m) = A034448(m) is the sum of unitary divisors of m. The sequence of these primorials is the unitary version of A023199. - Amiram Eldar, Aug 24 2018
FORMULA
It seems that lim_{n -> oo} a(n+1)/a(n) exists and is > 2.
MATHEMATICA
n=x=y=1; Do[x *= (Prime[s] + 1); y *= Prime[s]; If[x >= n*y, Print[Prime[s]]; n++ ], {s, 1, 10^6}] (* Ryan Propper, Jul 22 2005 *)
PROG
(PARI) a(n)=if(n<0, 0, s=1; while(prod(i=1, s, prime(i)+1)<prod(i=1, s, prime(i))*n, s++); prime(s));
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Benoit Cloitre, Aug 14 2002
EXTENSIONS
7 more terms from Ryan Propper, Jul 22 2005
a(18)-a(22) added by Amiram Eldar, Aug 24 2018 from the data at A072986
a(23)-a(27) from Keith F. Lynch, Jan 13 2024
STATUS
approved