A211675 Exponent of powers of 2 occurring in A211673.

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, 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, 9, 9, 9, 9, 9, 9, 9, 9, 10, 9, 9, 9, 9, 9, 10, 9, 9, 9

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A211673, A211674.

Sequence in context: A087793 A030411 A194817 * A239683 A132913 A278814

Adjacent sequences: A211672 A211673 A211674 * A211676 A211677 A211678

Keyword

nonn

Author

T. D. Noe, Apr 23 2012

Status

approved