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
