|
%I
%S 0,2,3,4,4,4,5,5,5,6,6,6,6,6,6,6,6,7,7,7,7,7,7,7,8,7,7,8,7,7,8,8,8,8,
%T 8,8,8,8,8,8,8,9,8,8,8,8,9,8,9,8,8,8,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
%U 9,9,9,9,9,9,9,9,10,9,9,9,9,9,10,9,9,9
%N Exponent of powers of 2 occurring in A211673.
%H T. D. Noe, <a href="/A211675/b211675.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[k = 1; While[! IntegerQ[q = Log[2, Prime[n+k] - Prime[k]]], k++]; q, {n, 100}]
%Y Cf. A211673, A211674.
%K nonn
%O 1,2
%A _T. D. Noe_, Apr 23 2012
|
