OFFSET
0,4
MATHEMATICA
Join[{0, 0}, RealDigits[1/688, 10, 120][[1]]] (* or *) PadRight[{0, 0, 1, 4}, 120, {8, 1, 3, 9, 5, 3, 4, 8, 8, 3, 7, 2, 0, 9, 3, 0, 2, 3, 2, 5, 5}] (* Harvey P. Dale, Sep 19 2018 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
STATUS
approved