|
|
A021729
|
|
Decimal expansion of 1/725.
|
|
0
|
|
|
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
(list;
constant;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
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
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|