A054490 Expansion of (1+5*x)/(1-6*x+x^2).
1, 11, 65, 379, 2209, 12875, 75041, 437371, 2549185, 14857739, 86597249, 504725755, 2941757281, 17145817931, 99933150305, 582453083899, 3394785353089, 19786259034635, 115322768854721, 672150354093691, 3917579355707425, 22833325780150859
Offset: 0
Examples
n = 2: sqrt(8*23^2-7) = 65. 2*19 + 27 = 65. - _Wolfdieter Lang_, Mar 19 2015
References
- A. H. Beiler, Recreations in the Theory of Numbers, Dover, N. Y., 1964, pp. 122-125, 194-196.
- T. Nagell, Introduction to Number Theory, Chelsea Publishing Company, New York, 1964.
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
- I. Adler, Three Diophantine equations - Part II, Fib. Quart., 7 (1969), pp. 181-193.
- Seyed Hassan Alavi, Ashraf Daneshkhah, Cheryl E Praeger, Symmetries of biplanes, arXiv:2004.04535 [math.GR], 2020. See y(n) in Lemma 7.9 p. 21.
- E. I. Emerson, Recurrent Sequences in the Equation DQ^2=R^2+N, Fib. Quart., 7 (1969), pp. 231-242.
- Tanya Khovanova, Recursive Sequences
- Index entries for linear recurrences with constant coefficients, signature (6,-1).
- Index entries for sequences related to Chebyshev polynomials.
Programs
-
GAP
a:=[1,11];; for n in [3..30] do a[n]:=6*a[n-1]-a[n-2]; od; a; # G. C. Greubel, Jan 20 2020
-
Magma
I:=[1,11]; [n le 2 select I[n] else 6*Self(n-1)-Self(n-2): n in [1..30]]; // Vincenzo Librandi, Mar 20 2015
-
Maple
a[0]:=1: a[1]:=11: for n from 2 to 26 do a[n]:=6*a[n-1]-a[n-2] od: seq(a[n], n=0..30); # Zerinvary Lajos, Jul 26 2006
-
Mathematica
CoefficientList[Series[(1+5x)/(1-6x+x^2), {x, 0, 30}], x] (* Vincenzo Librandi, Mar 20 2015 *) LinearRecurrence[{6, -1}, {1, 11}, 30] (* G. C. Greubel, Jul 26 2018 *)
-
PARI
my(x='x+O('x^30)); Vec((1+5*x)/(1-6*x+x^2)) \\ G. C. Greubel, Jul 26 2018
-
Sage
[lucas_number1(2*n+1,2,-1) + 3*lucas_number1(2*n,2,-1) for n in (0..30)] # G. C. Greubel, Jan 20 2020
Formula
a(n) = 6*a(n-1) - a(n-2) for n>1, a(0)=1, a(1)=11.
a(n) = sqrt(8*A038723(n)^2 - 7).
a(n) = (11*((3+2*sqrt(2))^n - (3-2*sqrt(2))^n) - ((3+2*sqrt(2))^(n-1) - (3-2*sqrt(2))^(n-1)))/(4*sqrt(2)).
a(n) = 11*S(n, 6) + 5*S(n-1, 6), n >= 0, with Chebyshev's polynomials S(n, x) (A049310) evaluated at x=6: S(n, 6) = A001109(n-1). See the g.f. and the Pell equation comments above. - Wolfdieter Lang, Feb 26 2015
a(n) = 2*A253811(n-1) + A101386(n-1), for n >= 1. See the Mar 19 2015 comment above. - Wolfdieter Lang, Mar 19 2015
From G. C. Greubel, Jan 20 2020: (Start)
a(n) = Pell(2*n+1) + 3*Pell(2*n).
a(n) = ChebyshevU(n,3) + 5*ChebyshevU(n-1,3).
E.g.f.: exp(3*x)*( cosh(2*sqrt(2)*x) + 2*sqrt(2)*sinh(2*sqrt(2)*x) ). (End)
Extensions
More terms from James Sellers, May 05 2000
More terms from Vincenzo Librandi, Mar 20 2015
Comments