|
| |
|
|
A133855
|
|
Primes p such that p-1 and p+1 are abundant numbers.
|
|
0
| |
|
|
19, 41, 71, 79, 89, 101, 103, 113, 139, 197, 199, 223, 271, 281, 307, 349, 353, 367, 379, 401, 439, 449, 461, 463, 491, 499, 521, 571, 607, 617, 619, 641, 643, 701, 727, 739, 761, 769, 811, 821, 859, 881, 911, 919, 929, 941, 953, 967, 991, 1039, 1061, 1063
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 19-1=18=2*3*3, s/n=39/18>2, 18 is abundant,
19+1=20=2*2*5, s/n=42/20>2, 20 is abundant, so a(1)=19
|
|
|
MAPLE
| with(numtheory): a:=proc(n) if isprime(n)=true and 0<sigma(n-1)-2*n+2 and 0< sigma(n+1)-2*n-2 then n else end if end proc: seq(a(n), n=2..1000); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 26 2008
|
|
|
MATHEMATICA
| Select[Prime[Range[500]], (Plus @@ Divisors[ # - 1]) > 2*(# - 1) && (Plus @@ Divisors[ # + 1]) > 2*(# + 1) &] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jan 21 2008
|
|
|
CROSSREFS
| Sequence in context: A179849 A029489 A155024 * A141855 A180932 A140603
Adjacent sequences: A133852 A133853 A133854 * A133856 A133857 A133858
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Pierre CAMI (pierre-cami(AT)bbox.fr), Jan 07 2008
|
|
|
EXTENSIONS
| Corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com) and Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 21 2008
|
| |
|
|
