A164318 Primes p such that the sum of divisors of p-1 is larger than 2*p.

13, 19, 31, 37, 41, 43, 61, 67, 71, 73, 79, 89, 97, 101, 103, 109, 113, 127, 139, 151, 157, 163, 181, 193, 197, 199, 211, 223, 229, 241, 271, 277, 281, 283, 307, 313, 331, 337, 349, 353, 367, 373, 379, 397, 401, 409, 421, 433, 439, 449, 457, 461, 463, 487, 491

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Example

p=13 is in the sequence because A000203(12) = A008332(6) = 28 > 2*p.

Mathematica

Select[Prime[Range[100]], DivisorSigma[1, #-1]>2#&]  (* Harvey P. Dale, Mar 31 2011 *)

Crossrefs

Cf. A008332, A140557.

Sequence in context: A353205 A108097 A102764 * A307533 A092738 A272382

Adjacent sequences: A164315 A164316 A164317 * A164319 A164320 A164321

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 12 2009

Extensions

Edited by R. J. Mathar, Aug 21 2009

Status

approved