This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A164318 #12 Sep 14 2017 04:12:08 %S A164318 13,19,31,37,41,43,61,67,71,73,79,89,97,101,103,109,113,127,139,151, %T A164318 157,163,181,193,197,199,211,223,229,241,271,277,281,283,307,313,331, %U A164318 337,349,353,367,373,379,397,401,409,421,433,439,449,457,461,463,487,491 %N A164318 Primes p such that the sum of divisors of p-1 is larger than 2*p. %H A164318 G. C. Greubel, <a href="/A164318/b164318.txt">Table of n, a(n) for n = 1..5000</a> %e A164318 p=13 is in the sequence because A000203(12) = A008332(6) = 28 > 2*p. %t A164318 Select[Prime[Range[100]],DivisorSigma[1,#-1]>2#&] (* _Harvey P. Dale_, Mar 31 2011 *) %Y A164318 Cf. A008332, A140557. %K A164318 nonn %O A164318 1,1 %A A164318 _Vladimir Joseph Stephan Orlovsky_, Aug 12 2009 %E A164318 Edited by _R. J. Mathar_, Aug 21 2009