|
| |
|
|
A040629
|
|
Continued fraction for sqrt(655).
|
|
0
|
|
|
|
25, 1, 1, 2, 5, 3, 2, 8, 10, 8, 2, 3, 5, 2, 1, 1, 50, 1, 1, 2, 5, 3, 2, 8, 10, 8, 2, 3, 5, 2, 1, 1, 50, 1, 1, 2, 5, 3, 2, 8, 10, 8, 2, 3, 5, 2, 1, 1, 50, 1, 1, 2, 5, 3, 2, 8, 10, 8, 2, 3, 5, 2, 1, 1, 50, 1, 1, 2, 5, 3, 2, 8, 10, 8, 2, 3, 5, 2, 1, 1, 50, 1, 1, 2, 5, 3, 2, 8
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
Table of n, a(n) for n=0..87.
Index entries for continued fractions for constants
Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
|
|
|
FORMULA
|
a(n)=(1/240)*{-722*(n mod 16)+13*[(n+1) mod 16]+28*[(n+2) mod 16]+58*[(n+3) mod 16]-17*[(n+4) mod 16]-2*[(n+5) mod 16]+103*[(n+6) mod 16]+43*[(n+7) mod 16]-17*[(n+8) mod 16]-77*[(n+9) mod 16]+28*[(n+10) mod 16]+43*[(n+11) mod 16]-32*[(n+12) mod 16]-2*[(n+13) mod 16]+13*[(n+14) mod 16]+748*[(n+15) mod 16]}-25*[C(2*n,n) mod 2], with n>=0 [From Paolo P. Lava, May 15 2009]
|
|
|
MAPLE
|
with(numtheory): Digits := 300: convert(evalf(sqrt(655)), confrac);
|
|
|
MATHEMATICA
|
ContinuedFraction[Sqrt[655], 120] (* or *) PadRight[{25}, 120, {50, 1, 1, 2, 5, 3, 2, 8, 10, 8, 2, 3, 5, 2, 1, 1}] (* Harvey P. Dale, Apr 06 2014 *)
|
|
|
CROSSREFS
|
Sequence in context: A040631 A040632 A040628 * A040627 A040626 A040625
Adjacent sequences: A040626 A040627 A040628 * A040630 A040631 A040632
|
|
|
KEYWORD
|
nonn,cofr,easy,less
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
STATUS
|
approved
|
| |
|
|
