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

Author

Vladimir Joseph Stephan Orlovsky, Aug 12 2009

Keywords

• nonn

Examples

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

Links

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

Crossrefs

Cf. A008332, A140557.

Programs

Mathematica

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

Extensions

Edited by R. J. Mathar, Aug 21 2009