login
Primes p such that sigma(p+3) = sigma(p-3).
1

%I #11 May 04 2021 14:44:19

%S 23,653,947,2027,4133,5431,18433,30089,39733,61667,71233,120947,

%T 148439,163673,238801,265813,493853,502499,1070033,1100921,1139141,

%U 1176127,1207447,1364401,1959961,1979281,2164471,3156319,3175967,3195233

%N Primes p such that sigma(p+3) = sigma(p-3).

%H Martin Møller Skarbiniks Pedersen and Giovanni Resta, <a href="/A169596/b169596.txt">Table of n, a(n) for n = 1..700</a> (first 99 terms from M. M. S. Pedersen)

%t Select[Prime@ Range[10^5], Equal @@ DivisorSigma[1, # + {-3, 3}] &] (* _Giovanni Resta_, May 15 2016 *)

%Y Cf. A067891, A169595.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 03 2009