OFFSET
1,7
MATHEMATICA
rl[n_]:=Module[{spl=Length/@Split[IntegerDigits[Prime[n], 2]]}, Max[spl]- Min[spl]]; rl/@Range[110] (* Harvey P. Dale, Jul 27 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 23 2010
STATUS
approved