|
|
A169595
|
|
Primes p such that sigma(p+2)=sigma(p-2).
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|