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 A164320 #12 Sep 14 2017 05:54:45
%S A164320 19,31,41,71,79,89,101,103,113,127,139,197,199,223,271,281,307,349,
%T A164320 353,367,379,401,439,449,461,463,491,499,521,571,607,617,619,641,643,
%U A164320 701,727,739,761,769,811,821,859,881,911,919,929,941,953,967,991,1039,1061
%N A164320 Primes p such that sums of divisors of the two adjacent integers are each > 2*p.
%H A164320 G. C. Greubel, <a href="/A164320/b164320.txt">Table of n, a(n) for n = 1..5000</a>
%F A164320 Intersection of A164318 and A164319.
%e A164320 For p=19, the sum of the divisors of 18 is A000203(18)=39 > 2*19, and the sum of the divisors
%e A164320 of 20 is A000203(20)= 42 > 2*19, so p=19 is in the sequence.
%t A164320 f[n_]:=Plus@@Divisors[n]; lst={};Do[p=Prime[n];If[f[p-1]>2*p&&f[p+1]> 2*p,AppendTo[lst,p]],{n,6!}];lst
%t A164320 Select[Prime[Range[200]],DivisorSigma[1,#-1]>2#&&DivisorSigma[ 1,#+1]>2#&] (* _Harvey P. Dale_, Nov 10 2011 *)
%Y A164320 Cf. A164318, A164319.
%K A164320 nonn
%O A164320 1,1
%A A164320 _Vladimir Joseph Stephan Orlovsky_, Aug 12 2009
%E A164320 References to unrelated sequences removed by _R. J. Mathar_, Aug 21 2009