login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A222563 Primes p such that the sum of divisors (excluding 1 and p - 1) of p - 1 and the sum of divisors (excluding 1 and p + 1) of p + 1 are both prime. 1
5, 59, 83, 239, 281, 359, 443, 479, 521, 599, 761, 839, 1163, 1319, 1361, 1583, 1619, 1721, 1787, 1871, 1877, 2003, 2063, 2339, 2927, 2969, 3251, 3371, 3407, 3671, 3767, 3917, 4001, 4013, 4229, 4283, 4397, 4451, 4463, 4649, 4679, 5147, 5261, 6287, 6329, 6659, 6689 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
EXAMPLE
83 is in the sequence because: it is prime, the sum of divisors (excluding 1 and 82) of 82 is 2 + 41 = 43, which is prime, and the sum of divisors (excluding 1 and 84) of 84 is 2 + 3 + 4 + 6 + 7 + 12 + 14 + 21 + 28 + 42 = 139, which is also prime.
MATHEMATICA
Select[Prime[Range[2, 900]], AllTrue[{Total[Most[Rest[Divisors[#-1]]]], Total[ Most[Rest[Divisors[#+1]]]]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 29 2016 *)
PROG
(PARI) is(n)=isprime(n)&&isprime(sigma(n-1)-n)&&isprime(sigma(n+1)-n-2) \\ Charles R Greathouse IV, Feb 25 2013
CROSSREFS
Sequence in context: A096476 A158694 A015994 * A141951 A243701 A179028
KEYWORD
nonn
AUTHOR
Gerasimov Sergey, Feb 25 2013
EXTENSIONS
Extended and a(4) and a(6) inserted by Charles R Greathouse IV, Feb 25 2013
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:19 EDT 2024. Contains 371254 sequences. (Running on oeis4.)