|
|
A007450
|
|
Decimal expansion of 1/17.
(Formerly M3772)
|
|
7
|
|
|
0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 0, 5, 8, 8, 2, 3, 5
(list;
constant;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Period 16: repeat [0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7]. - Joerg Arndt, Mar 25 2013
|
|
REFERENCES
|
H. Rademacher and O. Toeplitz, Von Zahlen und Figuren (Springer 1930, reprinted 1968), ch. 19, 'Die periodischen Dezimalbrueche'. [From Reinhard Zumkeller, Oct 06 2008]
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
FORMULA
|
a(n+16) = a(n), a(n+16/2) = 9 - a(n). (End)
G.f.: -x*(7*x^7-3*x^6+2*x^5+x^4-6*x^3+3*x+5)/((x-1)*(x^8+1)). - Colin Barker, Aug 15 2012
|
|
MATHEMATICA
|
CoefficientList[Series[-x (7 x^7 - 3 x^6 + 2 x^5 + x^4 - 6 x^3 + 3 x + 5)/((x - 1) (x^8+1)), {x, 0, 100}], x] (* Vincenzo Librandi, Mar 25 2013 *)
|
|
PROG
|
(Magma) I:=[0, 5, 8, 8, 2, 3, 5, 2, 9]; [n le 9 select I[n] else Self(n-1)-Self(n-8)+Self(n-9): n in [1..100]]; // Vincenzo Librandi, Mar 25 2013
(PARI) a(n)=[0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7][n%16+1]; /* Joerg Arndt, Mar 25 2013 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|