|
%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
|
