OFFSET
0,3
MATHEMATICA
PadLeft[First@ #, Abs@ Last@ # + Length@ First@ #] &@ RealDigits[N[1/138, 120]] (* Bruno Berselli, Jun 21 2016 *)
Join[{0, 0}, RealDigits[1/138, 10, 120][[1]]] (* or *) PadRight[{0}, 120, {5, 0, 7, 2, 4, 6, 3, 7, 6, 8, 1, 1, 5, 9, 4, 2, 0, 2, 8, 9, 8, 5}] (* Harvey P. Dale, Dec 12 2021 *)
CROSSREFS
KEYWORD
AUTHOR
STATUS
approved