A021810 Decimal expansion of 1/806.

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

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,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1).

Formula

From Chai Wah Wu, Aug 08 2022: (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) - a(n-18) + a(n-19) - a(n-20) + a(n-21) - a(n-22) + a(n-23) - a(n-24) + a(n-25) - a(n-26) + a(n-27) - a(n-28) + a(n-29) for n > 29.

G.f.: x^2*(-5*x^27 - x^26 - 5*x^25 + x^24 - 5*x^23 + 5*x^22 - 9*x^21 - 7*x^19 + 7*x^18 - 13*x^17 + 8*x^16 - 16*x^15 + 11*x^14 - 19*x^13 + 11*x^12 - 12*x^11 + 4*x^10 - 4*x^9 - 5*x^8 - 3*x^7 - 4*x^6 - 9*x^4 + 3*x^3 - 3*x^2 - x - 1)/((x - 1)*(x^2 - x + 1)*(x^2 + x + 1)*(x^4 - x^3 + x^2 - x + 1)*(x^4 + x^3 + x^2 + x + 1)*(x^8 - x^7 + x^5 - x^4 + x^3 - x + 1)*(x^8 + x^7 - x^5 - x^4 - x^3 + x + 1)). (End)

Mathematica

Join[{0, 0}, RealDigits[1/806, 10, 120][[1]]] (* or *) PadRight[{0, 0}, 120, {5, 0, 1, 2, 4, 0, 6, 9, 4, 7, 8, 9, 0, 8, 1, 8, 8, 5, 8, 5, 6, 0, 7, 9, 4, 0, 4, 4, 6, 6}] (* Harvey P. Dale, Dec 22 2013 *)

Crossrefs

Sequence in context: A326938 A344031 A229534 * A355007 A073800 A076813

Adjacent sequences: A021807 A021808 A021809 * A021811 A021812 A021813

Keyword

nonn,cons,easy

Author

N. J. A. Sloane.

Status

approved