A021520 Decimal expansion of 1/516.

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

Offset

0,4

Links

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

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

Formula

From Chai Wah Wu, Feb 16 2021: (Start)

a(n) = a(n-1) - a(n-3) + a(n-4) - a(n-6) + a(n-7) - a(n-9) + a(n-10) - a(n-12) + a(n-13) - a(n-15) + a(n-16) - a(n-18) + a(n-19) for n > 20.

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

Mathematica

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

Crossrefs

Sequence in context: A197836 A011282 A196823 * A248313 A010539 A284832

Adjacent sequences: A021517 A021518 A021519 * A021521 A021522 A021523

Keyword

nonn,cons

Author

N. J. A. Sloane.

Status

approved