Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #23 Aug 03 2014 14:01:28
%S 113,887,1129,1327,1669,1951,2179,2477,2971,3137,3271,4297,4831,5119,
%T 5351,5531,5591,5749,5953,6491,6917,7253,7759,7963,8389,8467,8893,
%U 8971,9551,9973,10009,10399,10531,10799,10909,11551,11743,12163,12853,13063,13187
%N Primes p(n) such that p(n) < 2^((p(n+1) - p(n))/2).
%H Charles R Greathouse IV, <a href="/A185337/b185337.txt">Table of n, a(n) for n = 1..10000</a>
%e 113 is in the sequence because prime(30) < 2^((prime(30+1)-prime(30))/2) or 113 < 2^((127-113)/2).
%t Select[Prime[Range[2000]], # < 2^((NextPrime[#] - #)/2) &] (* _T. D. Noe_, Mar 07 2012 *)
%o (PARI) v=List();p=2;forprime(q=3,1e4,if(p<2^((q-p)/2),listput(v,p));p=q);Vec(v) \\ _Charles R Greathouse IV_, Aug 03 2012
%Y Cf. A124585, A208149.
%K nonn
%O 1,1
%A _Gerasimov Sergey_, Mar 05 2012