OFFSET
1,7
MATHEMATICA
f[n_] := Length[ Union[ DeleteCases[ Split[ IntegerDigits[n, 2]], 1, 2]][[ -1]]]; Table[ f[ Prime[n]], {n, 1, 105}] (* Robert G. Wilson v, Dec 03 2003 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 20 2003
STATUS
approved