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