A021151 Decimal expansion of 1/147.
0, 0, 6, 8, 0, 2, 7, 2, 1, 0, 8, 8, 4, 3, 5, 3, 7, 4, 1, 4, 9, 6, 5, 9, 8, 6, 3, 9, 4, 5, 5, 7, 8, 2, 3, 1, 2, 9, 2, 5, 1, 7, 0, 0, 6, 8, 0, 2, 7, 2, 1, 0, 8, 8, 4, 3, 5, 3, 7, 4, 1, 4, 9, 6, 5, 9, 8, 6, 3, 9, 4, 5, 5, 7, 8, 2, 3, 1, 2, 9, 2, 5, 1, 7, 0, 0, 6, 8, 0, 2, 7, 2, 1, 0, 8, 8, 4, 3, 5
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1).
Programs
-
Mathematica
PadLeft[First@ #, Abs@ Last@ # + Length@ First@ #] &@ RealDigits[N[1/147, 120]] (* Bruno Berselli, Jun 21 2016 *) realDigitsRecip[147] (* The realDigitsRecip program is at A021200 *) (* Harvey P. Dale, Jan 11 2025 *)
Formula
G.f.: x^2*(7*x^39 + x^38 + 5*x^37 + 2*x^36 + 9*x^35 + 2*x^34 + x^33 + 3*x^32 + 2*x^31 + 8*x^30 + 7*x^29 + 5*x^28 + 5*x^27 + 4*x^26 + 9*x^25 + 3*x^24 + 6*x^23 + 8*x^22 + 9*x^21 + 5*x^20 + 6*x^19 + 9*x^18 + 4*x^17 + x^16 + 4*x^15 + 7*x^14 + 3*x^13 + 5*x^12 + 3*x^11 + 4*x^10 + 8*x^9 + 8*x^8 + x^6 + 2*x^5 + 7*x^4 + 2*x^3 + 8*x + 6)/(1 - x^42). - Chai Wah Wu, Jun 21 2016