OFFSET
1,2
FORMULA
MATHEMATICA
Flatten@ Map[If[Union@ # == {1}, ConstantArray[0, Length@ # - 1], Length@ #] &, Split@ RealDigits[Pi, 2, 250][[1]] ] (* Michael De Vlieger, Oct 20 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jack Zhang, Oct 10 2018
STATUS
approved