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 A188677 #19 Feb 12 2014 18:09:42
%S A188677 11,13,19,23,29,37,43,53,59,61,67,71,83,97,109,131,139,151,157,181,
%T A188677 197,227,233,239,251,263,269,293,317,353,359,383,409,433,439,499,509,
%U A188677 523,541,571,601,613,619,643,661,691,709,739,751,773,797,827,857
%N A188677 Primes p such that the minimum value of |p-2^x|, x>0, is also a prime.
%C A188677 Originally submitted by _Benoit Cloitre_, Dec 17 2002 as A078686 and corrected by _Robert G. Wilson v_, Apr 08 2011.
%F A188677 Intersection of A086081 and A091932. - _Robert G. Wilson v_, May 27 2011
%t A188677 fQ[n_] := Block[{x = Floor@ Log2@ n}, PrimeQ@ Min[n - 2^x, 2^(x+1) - n]]; Select[ Prime@ Range@ 150, fQ] (* _Robert G. Wilson v_, Apr 08 2011 *)
%o A188677 (PARI) is(n)=if(isprime(n),my(x=log(n)\log(2));isprime(min(abs(n-1<<x),abs(n-2<<x))),0) \\ _Charles R Greathouse IV_, Jan 10 2013
%Y A188677 Cf. A078686, A086081, A091932.
%K A188677 nonn
%O A188677 1,1
%A A188677 _Benoit Cloitre_ & _Robert G. Wilson v_, Apr 08 2011