A169595 Primes p such that sigma(p+2)=sigma(p-2).

53, 20543, 47843, 176227, 396953, 471187, 995887, 1083113, 1867253, 5022653, 17449567, 22873583, 32003407, 38673847, 59808803, 96144127, 113561243, 143570873, 164563687, 225835807, 238818893, 272773499, 286557983, 349504957

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 03 2009

Keywords

• nonn

Links

• Martin Møller Skarbiniks Pedersen, Table of n, a(n) for n = 1..200

Crossrefs

Cf. A067891.

Subsequence of A223091.

Programs

Mathematica

f[n_]:=Plus@@Divisors[Prime[n]-2]==Plus@@Divisors[Prime[n]+2]; lst={};Do[If[f[n],AppendTo[lst,Prime[n]]],{n,2*9!}];lst

Extensions

a(11)-a(24) from Donovan Johnson, Dec 08 2009

a(25)-a(200) from Martin Møller Skarbiniks Pedersen, May 31 2016