A020808 -id:A020808 - cp's OEIS frontend

A020809 Decimal expansion of 1/sqrt(52).

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

Offset: 0

N. J. A. Sloane

Ivan Panchenko, Table of n, a(n) for n = 0..1000

Cf. A020808.

RealDigits[N[1/Sqrt[52], 200]] (* Vladimir Joseph Stephan Orlovsky, Jun 12 2011 *)

A041087 Denominators of continued fraction convergents to sqrt(51).

Original entry on oeis.org

1, 7, 99, 700, 9899, 69993, 989801, 6998600, 98970201, 699790007, 9896030299, 69972002100, 989504059699, 6996500419993, 98940509939601, 699580069997200, 9893061489900401, 69951010499300007, 989207208480100499, 6994401469860003500, 98910827786520149499

Offset: 0

N. J. A. Sloane

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Index entries for linear recurrences with constant coefficients, signature (0,100,0,-1).

Cf. A041086, A040043, A020808.

I:=[1, 7, 99, 700]; [n le 4 select I[n] else 100*Self(n-2)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Dec 11 2013

Table[Denominator[FromContinuedFraction[ContinuedFraction[Sqrt[51], n]]], {n, 1, 50}] (* Vladimir Joseph Stephan Orlovsky, Jun 23 2011 *)
CoefficientList[Series[(1 + 7 x - x^2)/(x^4 - 100 x^2 + 1), {x, 0, 30}], x] (* Vincenzo Librandi, Dec 11 2013 *)

G.f.: -(x^2-7*x-1) / (x^4-100*x^2+1). - Colin Barker, Nov 12 2013

a(n) = 100*a(n-2) - a(n-4). - Vincenzo Librandi, Dec 11 2013

More terms from Colin Barker, Nov 12 2013

cp's OEIS Frontend

A020809 Decimal expansion of 1/sqrt(52).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica