|
%I #5 Apr 23 2012 15:32:32
%S 2,3,3,13,7,3,47,29,5,199,109,73,67,37,19,7,3,659,443,281,239,179,113,
%T 83,7027,53,23,4261,11,3,1621,1153,1117,1021,1033,673,727,463,313,307,
%U 397,24281,163,211,103,97,13781,61,16007,37,13,7,6899,6947,7577,4271
%N Least prime number prime(k) such that prime(n+k) - prime(k) is a power of 2.
%H T. D. Noe, <a href="/A211673/b211673.txt">Table of n, a(n) for n = 1..1000</a>
%e For n = 4, we have prime(10) - prime(6) = 2^4.
%e For n = 5, we have prime(9) - prime(4) = 2^4.
%t Table[k = 1; While[!IntegerQ[Log[2, Prime[n+k] - Prime[k]]], k++]; Prime[k], {n, 100}]
%Y Cf. A211674, A211675.
%K nonn
%O 1,1
%A _T. D. Noe_, Apr 23 2012
|
