A164318 - OEIS

%I #12 Sep 14 2017 04:12:08

%S 13,19,31,37,41,43,61,67,71,73,79,89,97,101,103,109,113,127,139,151,

%T 157,163,181,193,197,199,211,223,229,241,271,277,281,283,307,313,331,

%U 337,349,353,367,373,379,397,401,409,421,433,439,449,457,461,463,487,491

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

%H G. C. Greubel, <a href="/A164318/b164318.txt">Table of n, a(n) for n = 1..5000</a>

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

%t Select[Prime[Range[100]],DivisorSigma[1,#-1]>2#&]  (* _Harvey P. Dale_, Mar 31 2011 *)

%Y Cf. A008332, A140557.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Aug 12 2009

%E Edited by _R. J. Mathar_, Aug 21 2009