OFFSET
0,4
EXAMPLE
a(5) = 75 because psi(75) = 120 = 5! and 75 is the least number with this property.
a(7) = 1950 and 1950 has no prime factor 7, so a(8) = 7*1950 = 13650.
PROG
(PARI) a001615(n) = my(f=factor(n)); prod(i=1, #f~, f[i, 1]^f[i, 2] + f[i, 1]^(f[i, 2]-1))
a(n) = my(N=n!); for(k=1, N, if(a001615(k)==N, return(k))); 0 \\ after Charles R Greathouse IV at A001615
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Aug 24 2017
EXTENSIONS
a(13)-a(14) from Giovanni Resta, Aug 25 2017
a(15)-a(23) from Daniel Suteu, Dec 29 2020
STATUS
approved