login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A153111
Solutions of the Pell-like equation 1 + 6*A*A = 7*B*B, with A, B integers.
5
1, 25, 649, 16849, 437425, 11356201, 294823801, 7654062625, 198710804449, 5158826853049, 133930787374825, 3477041644892401, 90269151979827601, 2343520909830625225, 60841274503616428249, 1579529616184196509249, 41006928746285492812225
OFFSET
1,2
COMMENTS
B is of the form B(i) = 26*B(i-1) - B(i-2) for B(0) = 1, B(1) = 25 (this sequence).
A is of the form A(i) = 26*A(i-1) - A(i-2) for A(0) = 1, A(1) = 27.
In general a Pell-like equation of the form 1 + X*A*A = (X + 1)*B*B has the solution A(i) = (4*X + 2)*A(i-1) - A(i-2), for A(0) = 1 and A(1) = (4*X + 3), and B(i) = (4*X + 2)*B(i-1) - B(i-2) for B(0) = 1 and B(1) = (4*X + 1).
Examples in the OEIS:
X = 1 gives A002315 for A(i) and A001653 for B(i);
X = 2 gives A054320 for A(i) and A072256 for B(i);
X = 3 gives A028230 for A(i) and A001570 for B(i);
X = 4 gives A049629 for A(i) and A007805 for B(i);
X = 5 gives A133283 for A(i) and A157014 for B(i);
X = 6 gives A157461 for A(i) and this sequence for B(i).
Positive values of x (or y) satisfying x^2 - 26*x*y + y^2 + 24 = 0. - Colin Barker, Feb 20 2014
LINKS
Luigi Cimmino, Algebraic relations for recursive sequences, arXiv:math/0510417 [math.NT], 2005-2008.
Jeroen Demeyer, Diophantine sets of polynomials over number fields, arXiv:0807.1970 [math.NT], 2008.
Franz Lemmermeyer, Conics - a Poor Man's Elliptic Curves, arXiv:math/0311306 [math.NT], 2003.
FORMULA
a(n) = 26*a(n-1) - a(n-2). - Colin Barker, Feb 20 2014
G.f.: -x*(x - 1) / (x^2 - 26*x + 1). - Colin Barker, Feb 20 2014
a(n) = (1/14)*(7 - sqrt(42))*(1 + (13 + 2*sqrt(42))^(2*n - 1))/(13 + 2*sqrt(42))^(n - 1). - Bruno Berselli, Feb 25 2014
E.g.f.: (1/7)*(7*cosh(2*sqrt(42)*x) - sqrt(42)*sinh(2*sqrt(42)*x))*exp(13*x) - 1. - Franck Maminirina Ramaharo, Jan 07 2019
MATHEMATICA
CoefficientList[Series[(1 - x)/(x^2 - 26 x + 1), {x, 0, 40}], x] (* Vincenzo Librandi, Feb 22 2014 *)
LinearRecurrence[{26, -1}, {1, 25}, 20] (* Jean-François Alcover, Jan 07 2019 *)
PROG
(PARI) Vec(-x*(x-1)/(x^2-26*x+1) + O(x^100)) \\ Colin Barker, Feb 20 2014
(Magma) I:=[1, 25]; [n le 2 select I[n] else 26*Self(n-1)-Self(n-2): n in [1..20]]; // Vincenzo Librandi, Feb 22 2014
CROSSREFS
Cf. similar sequences listed in A238379.
Sequence in context: A203341 A260048 A152256 * A361712 A097194 A180811
KEYWORD
nonn,easy
AUTHOR
Ctibor O. Zizka, Dec 18 2008
EXTENSIONS
More terms from Philippe Deléham, Sep 19 2009; corrected by N. J. A. Sloane, Sep 20 2009
Additional term from Colin Barker, Feb 20 2014
STATUS
approved