A270414 Numbers m such that sigma(m-1) and sigma(phi(m)) are both primes.
3, 5, 10, 17, 65537
Offset: 1
Examples
10 is in the sequence because sigma(10-1) = sigma(9) = 13 and sigma(phi(10)) = sigma(4) = 7 (both primes).
Programs
-
Magma
[n: n in [2..100000] | IsPrime(SumOfDivisors(n-1)) and IsPrime(SumOfDivisors(EulerPhi(n)))];
-
Mathematica
Select[Range[10^6], And[PrimeQ@ DivisorSigma[1, # - 1], PrimeQ@ DivisorSigma[1, EulerPhi@ #]] &] (* Michael De Vlieger, Mar 17 2016 *)
-
PARI
isok(n) = isprime(sigma(n-1)) && isprime(sigma(eulerphi(n))); \\ Michel Marcus, Mar 17 2016
Comments