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 A211767 #18 Sep 13 2019 08:04:45
%S A211767 3,5,197,281,347,461,641,821,857,1289,1697,1721,1787,1877,2081,2141,
%T A211767 2381,2549,2801,3257,3539,3557,3929,4019,4241,4637,4721,5441,5477,
%U A211767 5501,5657,6449,6689,6701,6761,6827,6947,7457,7589,7877,8009,8387,8537,8597,8627
%N A211767 Lesser of twin primes p, p+2 with unique values of sigma(p) and sigma(p+2); sigma(n) = A000203(n) = sum of divisors of n.
%C A211767 Subsequence of A211656, A211660, A211678.
%H A211767 Amiram Eldar, <a href="/A211767/b211767.txt">Table of n, a(n) for n = 1..10000</a>
%e A211767 Prime 197 is in sequence because 197 and 199 are twin primes, sigma(197) = 198, sigma(199) = 200 and there are no other numbers m, n with sigma(m) = 198 or sigma(n) = 200.
%t A211767 d = DivisorSigma[1, Range[10000]]; t = Transpose[Select[Tally[Sort[d]], #[[2]] == 1 && #[[1]] <= Length[d] &]][[1]]; t2 = Sort[Flatten[Table[Position[d, i], {i, t}]]]; t3 = Select[t2, PrimeQ]; tp = {}; Do[If[t3[[i+1]] - t3[[i]] == 2, AppendTo[tp, t3[[i]]]], {i, Length[t3] - 1}]; tp (* _T. D. Noe_, Apr 26 2012 *)
%Y A211767 Cf. A211678 (twin primes p, p+2 with unique values of sigma(p) and sigma(p+2)), A211769 (greater of twin primes p, p+2 with unique values of sigma(p) and sigma(p+2)).
%K A211767 nonn
%O A211767 1,1
%A A211767 _Jaroslav Krizek_, Apr 20 2012
%E A211767 A-number corrected by _Jaroslav Krizek_, Mar 17 2013