A158914 Primes p such that there is a composite c with sigma_2(p)=sigma_2(c).
7, 47, 157, 3863
Offset: 1
Programs
-
Mathematica
tp=DivisorSigma[2,Select[Range[4000],PrimeQ]]; tc=DivisorSigma[2,Select[Range[4000],!PrimeQ[ # ]&]]; Sqrt[Intersection[tp,tc]-1]
Comments