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 A155186 #2 Mar 31 2012 12:38:20
%S A155186 2,7,29,101,107,197,227,457,647,829,1549,1627,2221,2309,2347,2521,
%T A155186 2677,2801,3181,3299,3529,3541,3557,3739,3769,4231,4549,4871,4987,
%U A155186 5651,5827,5881,6037,6079,6637,6827,7517,7639,7937,9787,11621,12041,12329,13009
%N A155186 Primes in A155171.
%C A155186 Numbers p (prime numbers only) of primitive Pythagorean triangles such that perimeters are Averages of twin prime pairs, q=p+1, a=q^2-p^2, c=q^2+p^2, b=2*p*q, s=a+b+c, s-+1 are primes.
%t A155186 lst={};Do[p=n;q=p+1;a=q^2-p^2;c=q^2+p^2;b=2*p*q;ar=a*b/2;s=a+b+c;If[PrimeQ[s-1]&&PrimeQ[s+1],If[PrimeQ[p],AppendTo[lst,p]]],{n,8!}];lst
%Y A155186 Cf. A020882, A020886, A020884, A020883, A024364, A024406, A155171, A155173, A155174, A155175, A155176, A155177, A155178, A155180, A088483, A001844, A096891, A066885, A099776, A110494, A081589, A155185, A019389, A062090, A050150
%K A155186 nonn
%O A155186 1,1
%A A155186 _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009