A021745 Decimal expansion of 1/741.

0, 0, 1, 3, 4, 9, 5, 2, 7, 6, 6, 5, 3, 1, 7, 1, 3, 9, 0, 0, 1, 3, 4, 9, 5, 2, 7, 6, 6, 5, 3, 1, 7, 1, 3, 9, 0, 0, 1, 3, 4, 9, 5, 2, 7, 6, 6, 5, 3, 1, 7, 1, 3, 9, 0, 0, 1, 3, 4, 9, 5, 2, 7, 6, 6, 5, 3, 1, 7, 1, 3, 9, 0, 0, 1, 3, 4, 9, 5, 2, 7, 6, 6, 5, 3, 1, 7, 1, 3, 9, 0, 0, 1, 3, 4, 9, 5, 2, 7

Offset

0,4

Links

Table of n, a(n) for n=0..98.

Index entries for linear recurrences with constant coefficients, signature (1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1).

Formula

From Chai Wah Wu, Apr 22 2024: (Start)

a(n) = a(n-1) - a(n-2) + a(n-3) - a(n-4) + a(n-5) - a(n-6) + a(n-7) - a(n-8) + a(n-9) - a(n-10) + a(n-11) - a(n-12) + a(n-13) - a(n-14) + a(n-15) - a(n-16) + a(n-17) for n > 16.

G.f.: x^2*(-9*x^14 + 6*x^13 - 7*x^12 - x^10 - 2*x^9 - 3*x^8 - 3*x^7 - 3*x^6 - 4*x^5 + 2*x^4 - 7*x^3 - 2*x^2 - 2*x - 1)/((x - 1)*(x^2 - x + 1)*(x^2 + x + 1)*(x^6 - x^3 + 1)*(x^6 + x^3 + 1)). (End)

Example

0.001349527665317139001349527665317139...

Mathematica

Join[{0, 0}, RealDigits[1/741, 10, 120][[1]]] (* or *) PadRight[{}, 120, {0, 0, 1, 3, 4, 9, 5, 2, 7, 6, 6, 5, 3, 1, 7, 1, 3, 9}] (* Harvey P. Dale, Oct 24 2016 *)

Crossrefs

Sequence in context: A225409 A083437 A011292 * A190285 A276521 A247567

Adjacent sequences: A021742 A021743 A021744 * A021746 A021747 A021748

Keyword

nonn,cons,easy,changed

Author

N. J. A. Sloane

Status

approved