login
Least prime number prime(n+k) such that prime(n+k) - prime(k) is a power of 2.
3

%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