A175609 The difference between maximal run length and minimal run length in binary representation of n-th prime.

0, 0, 0, 0, 1, 1, 2, 1, 2, 2, 0, 1, 1, 1, 3, 1, 2, 3, 3, 2, 1, 3, 1, 1, 3, 1, 1, 1, 1, 2, 0, 4, 2, 2, 1, 2, 2, 2, 2, 1, 1, 1, 5, 4, 2, 1, 1, 4, 1, 2, 2, 3, 3, 4, 6, 4, 3, 3, 2, 2, 2, 1, 1, 2, 2, 3, 1, 2, 1, 2, 3, 2, 3, 2, 3, 6, 3, 2, 2, 1, 2, 1, 3, 2, 2, 2, 4, 2, 2, 2, 2, 4, 2, 3, 3, 4, 6, 4, 4, 3, 2, 2, 2, 2, 2

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 23 2010

Keywords

• nonn

Programs

Mathematica

rl[n_]:=Module[{spl=Length/@Split[IntegerDigits[Prime[n],2]]}, Max[spl]- Min[spl]]; rl/@Range[110] (* Harvey P. Dale, Jul 27 2011 *)

Formula

a(n)=A175599(A000040(n)).