OFFSET
0,3
EXAMPLE
a(3) = 18 because usigma(18) = 30 = A002110(3) and 18 is the smallest number with this property.
PROG
(PARI) nthprimorial(n)=prod(i=1, n, prime(i));
usigma(n, f=factor(n))=prod(i=1, #f~, f[i, 1]^f[i, 2]+1);
a(n)=my(target=nthprimorial(n)); forfactored(n=target*nthprimorial(n-1)\usigma(nthprimorial(n-1)), target, if(usigma(n[1], n[2])==target, return(n[1]))); 0 \\ Charles R Greathouse IV, Aug 23 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar and Altug Alkan, Aug 23 2017
EXTENSIONS
a(10)-a(18) from Giovanni Resta, Aug 23 2017
a(19)-a(22) from Daniel Suteu, Dec 29 2020
STATUS
approved