[go: up one dir, main page]

login
A021520
Decimal expansion of 1/516.
0
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
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
KEYWORD
nonn,cons
AUTHOR
STATUS
approved