1,2

T. D. Noe, Table of n, a(n) for n = 1..1000

Table[k = 1; While[! IntegerQ[q = Log[2, Prime[n+k] - Prime[k]]], k++]; q, {n, 100}]

Cf. A211673, A211674.

Sequence in context: A087793 A030411 A194817 * A239683 A132913 A278814

Adjacent sequences: A211672 A211673 A211674 * A211676 A211677 A211678

nonn

T. D. Noe, Apr 23 2012

approved