|
Search: id:A067891
|
|
|
| A067891 |
|
Primes p such that sigma(p+1)=sigma(p-1). |
|
+0
4
|
|
| 367, 919, 30593, 95393, 117571, 124759, 147341, 197261, 334541, 344417, 463219, 732257, 755081, 931757, 982759, 1996759, 2401219, 2962697, 3013447, 4722941, 7892827, 13333097, 13358407, 17946259, 19828483, 19855471, 19904981
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[n_]:=Plus@@Divisors[Prime[n]-1]==Plus@@Divisors[Prime[n]+1]; lst={}; Do[If[f[n], AppendTo[lst, Prime[n]]], {n, 9!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 03 2009]
|
|
PROGRAM
|
(PARI) for(n=2, 10^8, if(isprime(n) && sigma(n+1)==sigma(n-1), print1(n, ", ")))
|
|
CROSSREFS
|
Sequence in context: A060518 A065556 A068357 this_sequence A142579 A098823 A097501
Adjacent sequences: A067888 A067889 A067890 this_sequence A067892 A067893 A067894
|
|
KEYWORD
|
easy,nonn,new
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 02 2002
|
|
EXTENSIONS
|
More terms from Rick L. Shepherd (rshepherd2(AT)hotmail.com), Apr 19 2002
|
|
|
Search completed in 0.002 seconds
|
