A331547 Numbers k such that k and k! - 1 have the same number of divisors.
3, 7, 8, 10, 26, 27, 34, 85, 93, 104, 143, 152
Offset: 1
Links
- factordb.com, Status of 154!-1.
Programs
-
Mathematica
Select[Range[50], DivisorSigma[0, #] - DivisorSigma[0, Factorial[#] - 1] == 0 &]
-
PARI
isok(k) = k>1 && numdiv(k)==numdiv(k!-1); \\ Jinyuan Wang, Jan 20 2020
-
PARI
{is(n)=my(f); n>2&& numdiv(n)>=numdiv(f=factor(n!-1,0))&& if( ispseudoprime(vecmax(f[,1])), numdiv(n)==numdiv(f), numdiv(n)<2*numdiv(f), 0, numdiv(n)==numdiv(n!-1))} \\ Avoids complete factorization if possible. - M. F. Hasler, Feb 26 2020
Formula
Extensions
a(8)-a(9) from Jinyuan Wang, Jan 20 2020
a(10) from Amiram Eldar, Jan 20 2020
a(11)-a(12) from Chai Wah Wu, Feb 26 2020
Comments