A021729 Decimal expansion of 1/725.

0, 0, 1, 3, 7, 9, 3, 1, 0, 3, 4, 4, 8, 2, 7, 5, 8, 6, 2, 0, 6, 8, 9, 6, 5, 5, 1, 7, 2, 4, 1, 3, 7, 9, 3, 1, 0, 3, 4, 4, 8, 2, 7, 5, 8, 6, 2, 0, 6, 8, 9, 6, 5, 5, 1, 7, 2, 4, 1, 3, 7, 9, 3, 1, 0, 3, 4, 4, 8, 2, 7, 5, 8, 6, 2, 0, 6, 8, 9, 6, 5, 5, 1, 7, 2, 4, 1, 3, 7, 9, 3, 1, 0, 3, 4, 4, 8, 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,0,0,0,0,0,0,0,0,0,0,0,0,-1,1).

Formula

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

a(n) = a(n-1) - a(n-14) + a(n-15) for n > 16.

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

Example

0.001379310344827586206896551724137931...

Mathematica

Join[{0, 0}, RealDigits[1/725, 10, 120][[1]]] (* or *) PadRight[{0, 0}, 120, {2, 4, 1, 3, 7, 9, 3, 1, 0, 3, 4, 4, 8, 2, 7, 5, 8, 6, 2, 0, 6, 8, 9, 6, 5, 5, 1, 7}] (* Harvey P. Dale, May 17 2018 *)

Crossrefs

Sequence in context: A072845 A197481 A197682 * A198236 A071641 A093336

Adjacent sequences: A021726 A021727 A021728 * A021730 A021731 A021732

Keyword

nonn,cons,easy

Author

N. J. A. Sloane

Status

approved