%I #5 Apr 23 2012 15:35:47
%S 3,7,11,29,23,19,79,61,37,263,173,137,131,101,83,71,67,787,571,409,
%T 367,307,241,211,7283,181,151,4517,139,131,1877,1409,1373,1277,1289,
%U 929,983,719,569,563,653,24793,419,467,359,353,14293,317,16519,293,269,263
%N Least prime number prime(n+k) such that prime(n+k) - prime(k) is a power of 2.
%H T. D. Noe, <a href="/A211674/b211674.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[k = 1; While[!IntegerQ[Log[2, Prime[n+k] - Prime[k]]], k++]; Prime[n+k], {n, 100}]
%Y Cf. A211673, A211675.
%K nonn
%O 1,1
%A _T. D. Noe_, Apr 23 2012