A169596 Primes p such that sigma(p+3) = sigma(p-3).
23, 653, 947, 2027, 4133, 5431, 18433, 30089, 39733, 61667, 71233, 120947, 148439, 163673, 238801, 265813, 493853, 502499, 1070033, 1100921, 1139141, 1176127, 1207447, 1364401, 1959961, 1979281, 2164471, 3156319, 3175967, 3195233
Offset: 1
Keywords
Links
- Martin Møller Skarbiniks Pedersen and Giovanni Resta, Table of n, a(n) for n = 1..700 (first 99 terms from M. M. S. Pedersen)
Programs
-
Mathematica
Select[Prime@ Range[10^5], Equal @@ DivisorSigma[1, # + {-3, 3}] &] (* Giovanni Resta, May 15 2016 *)