OFFSET
1,1
LINKS
Martin Møller Skarbiniks Pedersen, Table of n, a(n) for n = 1..200
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 03 2009
EXTENSIONS
a(11)-a(24) from Donovan Johnson, Dec 08 2009
a(25)-a(200) from Martin Møller Skarbiniks Pedersen, May 31 2016
STATUS
approved