cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 36 results. Next

A049629 a(n) = (F(6*n+5) - F(6*n+1))/4 = (F(6*n+4) + F(6*n+2))/4, where F = A000045.

Original entry on oeis.org

1, 19, 341, 6119, 109801, 1970299, 35355581, 634430159, 11384387281, 204284540899, 3665737348901, 65778987739319, 1180356041958841, 21180629767519819, 380070979773397901, 6820097006153642399, 122381675130992165281, 2196050055351705332659, 39406519321199703822581
Offset: 0

Views

Author

Keywords

Comments

x(n) := 2*a(n) and y(n) := A007805(n), n >= 0, give all the positive solutions of the Pell equation x^2 - 5*y^2 = -1.
The Gregory V. Richardson formula follows from this. - Wolfdieter Lang, Jun 20 2013
From Peter Bala, Mar 23 2018: (Start)
Define a binary operation o on the real numbers by x o y = x*sqrt(1 + y^2) + y*sqrt(1 + x^2). The operation o is commutative and associative with identity 0. Then we have
2*a(n) = 2 o 2 o ... o 2 (2*n+1 terms). For example, 2 o 2 = 4*sqrt(5) and 2 o 2 o 2 = 2 o 4*sqrt(5) = 38 = 2*a(1). Cf. A084068.
a(n) = U(2*n+1) where U(n) is the Lehmer sequence [Lehmer, 1930] defined by the recurrence U(n) = sqrt(20)*U(n-1) - U(n-2) with U(0) = 0 and U(1) = 1. The solution to the recurrence is U(n) = (1/4)*( (sqrt(5) + 2)^n - (sqrt(5) - 2)^n ). (End)

Examples

			Pell, n=1: (2*19)^2 - 5*17^2 = -1.
		

Crossrefs

Bisection of A001077 divided by 2.
Cf. similar sequences of the type (1/k)*sinh((2*n+1)*arcsinh(k)) listed in A097775.

Programs

  • Magma
    [(Fibonacci(6*n+5) - Fibonacci(6*n+1))/4: n in [0..30]]; // G. C. Greubel, Dec 15 2017
  • Maple
    with(numtheory): with(combinat):
    seq((fibonacci(6*n+5)-fibonacci(6*n+1))/4,n=0..20); # Muniru A Asiru, Mar 25 2018
  • Mathematica
    a[n_] := Simplify[(2 + Sqrt@5)^(2 n - 1) + (2 - Sqrt@5)^(2 n - 1)]/4; Array[a, 16] (* Robert G. Wilson v, Oct 28 2010 *)
  • PARI
    my(x='x+O('x^30)); Vec((1+x)/(1 - 18*x + x^2)) \\ G. C. Greubel, Dec 15 2017
    

Formula

a(n) ~ (1/4)*(sqrt(5) + 2)^(2*n+1). - Joe Keane (jgk(AT)jgk.org), May 15 2002
For all members x of the sequence, 20*x^2 + 5 is a square. Lim_{n -> oo} a(n)/a(n-1) = 9 + 2*sqrt(20) = 9 + 4*sqrt(5). The 20 can be seen to derive from the statement "20*x^2 + 5 is a square". - Gregory V. Richardson, Oct 12 2002
a(n) = (((9 + 4*sqrt(5))^(n+1) - (9 - 4*sqrt(5))^(n+1)) + ((9 + 4*sqrt(5))^n - (9 - 4*sqrt(5))^n)) / (8*sqrt(5)). - Gregory V. Richardson, Oct 12 2002
From R. J. Mathar, Nov 04 2008: (Start)
G.f.: (1+x)/(1 - 18x + x^2).
a(n) = A049660(n) + A049660(n+1). (End)
a(n) = 18*a(n-1) - a(n-2) for n>1; a(0)=1, a(1)=19. - Philippe Deléham, Nov 17 2008
a(n) = S(n,18) + S(n-1,18) with the Chebyshev S-polynomials (A049310). - Wolfdieter Lang, Jun 20 2013
From Peter Bala, Mar 23 2015: (Start)
a(n) = ( Fibonacci(6*n + 6 - 2*k) + Fibonacci(6*n + 2*k) )/( Fibonacci(6 - 2*k) + Fibonacci(2*k) ), for k an arbitrary integer.
a(n) = ( Fibonacci(6*n + 6 - 2*k - 1) - Fibonacci(6*n + 2*k + 1) )/( Fibonacci(6 - 2*k - 1) - Fibonacci(2*k + 1) ), for k an arbitrary integer, k != 1.
The aerated sequence (b(n))n>=1 = [1, 0, 19, 0, 341, 0, 6119, 0, ...] is a fourth-order linear divisibility sequence; that is, if n | m then b(n) | b(m). It is the case P1 = 0, P2 = -16, Q = -1 of the 3-parameter family of divisibility sequences found by Williams and Guy. See A100047 for the connection with Chebyshev polynomials. (End)
a(n) = (A188378(n)^3 + (A188378(n)-2)^3) / 8. - Altug Alkan, Jan 24 2016
a(n) = sqrt(5 * Fibonacci(3 + 6*n)^2 - 4)/4. - Gerry Martens, Jul 25 2016
a(n) = Lucas(6*n + 3)/4. - Ehren Metcalfe, Feb 18 2017
From Peter Bala, Mar 23 2018: (Start)
a(n) = 1/4*( (sqrt(5) + 2)^(2*n+1) - (sqrt(5) - 2)^(2*n+1) ).
a(n) = 9*a(n-1) + 2*sqrt(5 + 20*a(n-1)^2).
a(n) = (1/2)*sinh((2*n + 1)*arcsinh(2)). (End)
From Peter Bala, May 09 2025: (Start)
a(n)^2 - 18*a(n)*a(n+1) + a(n+1)^2 = 20.
More generally, for real x, a(n+x)^2 - 18*a(n+x)*a(n+x+1) + a(n+x+1)^2 = 20 with a(n) := (((9 + 4*sqrt(5))^(n+1) - (9 - 4*sqrt(5))^(n+1)) + ((9 + 4*sqrt(5))^n - (9 - 4*sqrt(5))^n)) / (8*sqrt(5)) as given above.
Sum_{n >= 1} (-1)^(n+1)/(a(n) - 1/a(n)) = 1/20 (telescoping series).
Product_{n >= 1} ((a(n) + 1)/(a(n) - 1)) = sqrt(5)/2 (telescoping product). (End)

A214992 Power ceiling-floor sequence of (golden ratio)^4.

Original entry on oeis.org

7, 47, 323, 2213, 15169, 103969, 712615, 4884335, 33477731, 229459781, 1572740737, 10779725377, 73885336903, 506417632943, 3471038093699, 23790849022949, 163064905066945, 1117663486445665, 7660579500052711
Offset: 0

Views

Author

Clark Kimberling, Nov 08 2012, Jan 24 2013

Keywords

Comments

Let f = floor and c = ceiling. For x > 1, define four sequences as functions of x, as follows:
p1(0) = f(x), p1(n) = f(x*p1(n-1));
p2(0) = f(x), p2(n) = c(x*p2(n-1)) if n is odd and p2(n) = f(x*p1(n-1)) if n is even;
p3(0) = c(x), p3(n) = f(x*p3(n-1)) if n is odd and p3(n) = c(x*p3(n-1)) if n is even;
p4(0) = c(x), p4(n) = c(x*p4(n-1)).
The present sequence is given by a(n) = p3(n).
Following the terminology at A214986, call the four sequences power floor, power floor-ceiling, power ceiling-floor, and power ceiling sequences. In the table below, a sequence is identified with an A-numbered sequence if they appear to agree except possibly for initial terms. Notation: S(t)=sqrt(t), r = (1+S(5))/2 = golden ratio, and Limit = limit of p3(n)/p2(n).
x ......p1..... p2..... p3..... p4.......Limit
r^2.....A001519 A001654 A061646 A001906..-1+S(5)
r^3.....A024551 A001076 A015448 A049652..-1+S(5)
r^4.....A049685 A157335 A214992 A004187..-19+9*S(5)
r^5.....A214993 A049666 A015457 A214994...(-9+5*S(5))/2
r^6.....A007805 A156085 A214995 A049660..-151+68*S(5)
2+S(2)..A007052 A214996 A214997 A007070..(1+S(2))/2
1+S(3)..A057960 A002605 A028859 A077846..(1+S(3))/2
2+S(3)..A001835 A109437 A214998 A001353..-4+3*S(3)
S(5)....A214999 A215091 A218982 A218983..1.26879683...
2+S(5)..A024551 A001076 A015448 A049652..-1+S(5)
2+S(6)..A218984 A090017 A123347 A218985..S(3/2)
2+S(7)..A218986 A015530 A126473 A218987..(1+S(7))/3
2+S(8)..A218988 A057087 A086347 A218989..(1+S(2))/2
3+S(8)..A001653 A084158 A218990 A001109..-13+10*S(2)
3+S(10).A218991 A005668 A015451 A218992..-2+S(10)
...
Properties of p1, p2, p3, p4:
(1) If x > 2, the terms of p2 and p3 interlace: p2(0) < p3(0) < p2(1) < p3(1) < p2(2) < p3(2)... Also, p1(n) <= p2(n) <= p3(n) <= p4(n) <= p1(n+1) for all x>0 and n>=0.
(2) If x > 2, the limits L(x) = limit(p/x^n) exist for the four functions p(x), and L1(x) <= L2(x) <= L3(x) <= L4 (x). See the Mathematica programs for plots of the four functions; one of them also occurs in the Odlyzko and Wilf article, along with a discussion of the special case x = 3/2.
(3) Suppose that x = u + sqrt(v) where v is a nonsquare positive integer. If u = f(x) or u = c(x), then p1, p2, p3, p4 are linear recurrence sequences. Is this true for sequences p1, p2, p3, p4 obtained from x = (u + sqrt(v))^q for every positive integer q?
(4) Suppose that x is a Pisot-Vijayaraghavan number. Must p1, p2, p3, p4 then be linearly recurrent? If x is also a quadratic irrational b + c*sqrt(d), must the four limits L(x) be in the field Q(sqrt(d))?
(5) The Odlyzko and Wilf article (page 239) raises three interesting questions about the power ceiling function; it appears that they remain open.

Examples

			a(0) = ceiling(r) = 7, where r = ((1+sqrt(5))/2)^4 = 6.8...; a(1) = floor(7*r) = 47; a(2) = ceiling(47) = 323.
		

Crossrefs

Programs

  • Mathematica
    (* Program 1.  A214992 and related sequences *)
    x = GoldenRatio^4; z = 30; (* z = # terms in sequences *)
    z1 = 100; (* z1 = # digits in approximations *)
    f[x_] := Floor[x]; c[x_] := Ceiling[x];
    p1[0] = f[x]; p2[0] = f[x]; p3[0] = c[x]; p4[0] = c[x];
    p1[n_] := f[x*p1[n - 1]]
    p2[n_] := If[Mod[n, 2] == 1, c[x*p2[n - 1]], f[x*p2[n - 1]]]
    p3[n_] := If[Mod[n, 2] == 1, f[x*p3[n - 1]], c[x*p3[n - 1]]]
    p4[n_] := c[x*p4[n - 1]]
    Table[p1[n], {n, 0, z}]  (* A049685 *)
    Table[p2[n], {n, 0, z}]  (* A157335 *)
    Table[p3[n], {n, 0, z}]  (* A214992 *)
    Table[p4[n], {n, 0, z}]  (* A004187 *)
    Table[p4[n] - p1[n], {n, 0, z}]  (* A004187 *)
    Table[p3[n] - p2[n], {n, 0, z}]  (* A098305 *)
    (* Program 2.  Plot of power floor and power ceiling functions, p1(x) and p4(x) *)
    f[x_] := f[x] = Floor[x]; c[x_] := c[x] = Ceiling[x];
    p1[x_, 0] := f[x]; p1[x_, n_] := f[x*p1[x, n - 1]];
    p4[x_, 0] := c[x]; p4[x_, n_] := c[x*p4[x, n - 1]];
    Plot[Evaluate[{p1[x, 10]/x^10, p4[x, 10]/x^10}], {x, 2, 3}, PlotRange -> {0, 4}]
    (* Program 3. Plot of power floor-ceiling and power ceiling-floor functions, p2(x) and p3(x) *)
    f[x_] := f[x] = Floor[x]; c[x_] := c[x] = Ceiling[x];
    p2[x_, 0] := f[x]; p3[x_, 0] := c[x];
    p2[x_, n_] := If[Mod[n, 2] == 1, c[x*p2[x, n - 1]], f[x*p2[x, n - 1]]]
    p3[x_, n_] := If[Mod[n, 2] == 1, f[x*p3[x, n - 1]], c[x*p3[x, n - 1]]]
    Plot[Evaluate[{p2[x, 10]/x^10, p3[x, 10]/x^10}], {x, 2, 3}, PlotRange -> {0, 4}]

Formula

a(n) = floor(r*a(n-1)) if n is odd and a(n) = ceiling(r*a(n-1)) if n is even, where a(0) = ceiling(r), r = (golden ratio)^4 = (7 + sqrt(5))/2.
a(n) = 6*a(n-1) + 6*a(n-2) - a(n-3).
G.f.: (7 + 5*x - x^2)/((1 + x)*(1 - 7*x + x^2)).
a(n) = (10*(-2)^n+(10+3*sqrt(5))*(7-3*sqrt(5))^(n+2)+(10-3*sqrt(5))*(7+3*sqrt(5))^(n+2))/(90*2^n). - Bruno Berselli, Nov 14 2012
a(n) = 7*A157335(n) + 5*A157335(n-1) - A157335(n-2). - R. J. Mathar, Feb 05 2020
E.g.f.: exp(-x)*(5 + 2*exp(9*x/2)*(155*cosh(3*sqrt(5)*x/2) + 69*sqrt(5)*sinh(3*sqrt(5)*x/2)))/45. - Stefano Spezia, Oct 28 2024

A077259 First member of the Diophantine pair (m,k) that satisfies 5*(m^2 + m) = k^2 + k; a(n) = m.

Original entry on oeis.org

0, 2, 6, 44, 116, 798, 2090, 14328, 37512, 257114, 673134, 4613732, 12078908, 82790070, 216747218, 1485607536, 3889371024, 26658145586, 69791931222, 478361013020, 1252365390980, 8583840088782, 22472785106426, 154030760585064, 403257766524696, 2763969850442378
Offset: 0

Views

Author

Bruce Corrigan (scentman(AT)myfamily.com), Nov 01 2002

Keywords

Examples

			a(3) = (2*6) - 2 + (2*17) = 12 - 2 + 34 = 44.
G.f. = 2*x + 6*x^2 + 44*x^3 + 116*x^4 + 798*x^5 + 2090*x^6 + 14328*x^7 + ... - _Michael Somos_, Jul 15 2018
		

Crossrefs

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 30); [0] cat Coefficients(R!(2*x*(x+1)^2/((1-x)*(x^2-4*x-1)*(x^2+4*x-1)))); // G. C. Greubel, Jul 15 2018
  • Maple
    f := gfun:-rectoproc({a(-2) = 2, a(-1) = 0, a(0) = 0, a(1) = 2, a(n) = 18*a(n - 2) - a(n - 4) + 8}, a(n), remember): map(f, [$ (0 .. 40)])[]; # Vladimir Pletser, Jul 24 2020
  • Mathematica
    LinearRecurrence[{1, 18, -18, -1, 1}, {0, 2, 6, 44, 116}, 30] (* G. C. Greubel, Jul 15 2018 *)
    a[ n_] := With[{m = Max[n, -1 - n]}, SeriesCoefficient[ 2 x (x + 1)^2 / ((1 - x) (x^2 - 4 x - 1) (x^2 + 4 x - 1)), {x, 0, m}]]; (* Michael Somos, Jul 15 2018 *)
  • PARI
    my(x='x+O('x^30)); concat([0], Vec(2*x*(x+1)^2/((1-x)*(x^2-4*x-1)*(x^2+4*x-1)))) \\ G. C. Greubel, Jul 15 2018
    

Formula

Let b(n) be A007805(n). Then with a(0)=0, a(1)=2, a(2*n+2) = 2*a(2*n+1) - a(2*n) + 2*b(n), a(2*n+3) = 2*a(2*n+2) - a(2*n+1) + 2*b(n+1).
a(n) = (A000045(A007310(n+1))-1)/2. - Vladeta Jovovic, Nov 02 2002 [corrected by R. J. Mathar, Sep 16 2009]
a(0)=0, a(1)=2, a(n+2) = 4 + 9*a(n) + 2*sqrt(1 +20*a(n) +20*a(n)^2). - Herbert Kociemba, May 12 2008
a(0)=0, a(1)=2, a(2)=6, a(3)=44, a(n) = 18*a(n-2) - a(n-4) + 8. - Robert Phillips, Sep 01 2008
G.f.: 2*x*(1+x)^2/((1-x)*(1+4*x-x^2)*(1-4*x-x^2)). - Maksym Voznyy (voznyy(AT)mail.ru), Jul 27 2009
a(n) = a(-1-n) for all n in Z. - Michael Somos, Jul 15 2018
a(2*n) = A049651(2*n); a(2*n+1) = A110679(2*n+1). See "6 interlaced bisections" link. - Hermann Stamm-Wilbrandt, Apr 18 2019
a(n) = a(n-1) + 18*a(n-2) - 18*a(n-3) - a(n-4) + a(n-5). - Wesley Ivan Hurt, Jul 24 2020
From Vladimir Pletser, Feb 07 2021: (Start)
a(n) = ((5+sqrt(5))*(2+sqrt(5))^n + (5-sqrt(5))*(2-sqrt(5))^n)/20 - 1/2 for even n;
a(n) = ((5+3*sqrt(5))*(2+sqrt(5))^n + (5-3*sqrt(5))*(2-sqrt(5))^n)/20 - 1/2 for odd n. (End)

Extensions

More terms from Colin Barker, Mar 23 2014

A188647 Array read by antidiagonals of a(n) = a(n-1)*k-((k-1)/(k^n)) where a(0)=1 and k=(sqrt(x^2+1)+x)^2 for integers x>=1.

Original entry on oeis.org

1, 5, 1, 29, 17, 1, 169, 305, 37, 1, 985, 5473, 1405, 65, 1, 5741, 98209, 53353, 4289, 101, 1, 33461, 1762289, 2026009, 283009, 10301, 145, 1, 195025, 31622993, 76934989, 18674305, 1050601, 21169, 197, 1, 1136689, 567451585, 2921503573, 1232221121, 107151001, 3090529, 39005, 257, 1
Offset: 0

Views

Author

Charles L. Hohn, Apr 06 2011

Keywords

Comments

Conjecture: Given function f(x, y)=(sqrt(x^2+y)+x)^2; constant k=f(x, y); and initial term a(0)=1; then for all integers x>=1 and y=[+-]1, k may be irrational, but sequence a(n)=a(n-1)*k-((k-1)/(k^n)) always produces integer sequences; y=1 results shown here; y=-1 results are A188646.
Also square array A(n,k), n >= 1, k >= 0, read by antidiagonals, where A(n,k) is (1/sqrt(n^2+1)) * T_{2*k+1}(sqrt(n^2+1)), with T the Chebyshev polynomial of the first kind. - Seiichi Manyama, Jan 02 2019

Examples

			Square array begins:
     | 0    1       2          3             4
-----+---------------------------------------------
   1 | 1,   5,     29,       169,          985, ...
   2 | 1,  17,    305,      5473,        98209, ...
   3 | 1,  37,   1405,     53353,      2026009, ...
   4 | 1,  65,   4289,    283009,     18674305, ...
   5 | 1, 101,  10301,   1050601,    107151001, ...
   6 | 1, 145,  21169,   3090529,    451196065, ...
   7 | 1, 197,  39005,   7722793,   1529074009, ...
   8 | 1, 257,  66305,  17106433,   4413393409, ...
   9 | 1, 325, 105949,  34539049,  11259624025, ...
  10 | 1, 401, 161201,  64802401,  26050404001, ...
  11 | 1, 485, 235709, 114554089,  55673051545, ...
  12 | 1, 577, 333505, 192765313, 111418017409, ...
  13 | 1, 677, 459005, 311204713, 210996336409, ...
  14 | 1, 785, 617009, 484968289, 381184458145, ...
  15 | 1, 901, 812701, 733055401, 661215159001, ...
  ...
		

Crossrefs

Row 1 is A001653, row 2 is A007805, row 3 is A097315, row 4 is A078988, row 5 is A097727, row 6 is A097730, row 7 is A097733, row 8 is A097736, row 9 is A097739, row 10 is A097742, row 11 is A097767, row 12 is A097770, row 13 is A097773.
Column 1 is A053755.
A(n,n) gives A323012.
Cf. A188645, A188646 (f(x, y) as above with y=-1).

Formula

A(n,k) = 2 * A188645(n,k) - A(n,k-1).
A(n,k) = Sum_{j=0..k} binomial(2*k+1,2*j)*(n^2+1)^(k-j)*n^(2*j). - Seiichi Manyama, Jan 02 2019

Extensions

Edited and extended by Seiichi Manyama, Jan 02 2019

A157014 Expansion of x*(1-x)/(1 - 22*x + x^2).

Original entry on oeis.org

1, 21, 461, 10121, 222201, 4878301, 107100421, 2351330961, 51622180721, 1133336644901, 24881784007101, 546265911511321, 11992968269241961, 263299036011811821, 5780585823990618101, 126909589091781786401, 2786230374195208682721, 61170158643202809233461
Offset: 1

Views

Author

Paul Weisenhorn, Feb 21 2009

Keywords

Comments

This sequence is part of a solution of a general problem involving 2 equations, three sequences a(n), b(n), c(n) and a constant A:
A * c(n)+1 = a(n)^2,
(A+1) * c(n)+1 = b(n)^2, where solutions are given by the recurrences:
a(1) = 1, a(2) = 4*A+1, a(n) = (4*A+2)*a(n-1)-a(n-2) for n>2, resulting in a(n) terms 1, 4*A+1, 16*A^2+12*A+1, 64*A^3+80*A^2+24*A+1, ...;
b(1) = 1, b(2) = 4*A+3, b(n) = (4*A+2)*b(n-1)-b(n-2) for n>2, resulting in b(n) terms 1, 4*A+3, 16*A^2+20*A+5, 64*A^3+112*A^2+56*A+7, ...;
c(1) = 0, c(2) = 16*A+8, c(3) = (16*A^2+16*A+3)*c(2), c(n) = (16*A^2+16*A+3) * (c(n-1)-c(n-2)) + c(n-3) for n>3, resulting in c(n) terms 0, 16*A+8, 256*A^3+384*A^2+176*A+24, 4096*A^5 + 10240*A^4 + 9472*A^3 + 3968*A^2 + 736*A + 48, ... .
A157014 is the a(n) sequence for A=5.
For other A values the a(n), b(n) and c(n) sequences are in the OEIS:
A a-sequence b-sequence c-sequence
2 A072256 A054320(n-1) A045502(n-1)
9 A097315(n-1) A097314(n-1) A157881
Positive values of x (or y) satisfying x^2 - 22xy + y^2 + 20 = 0. - Colin Barker, Feb 19 2014
From Klaus Purath, Apr 22 2025: (Start)
Nonnegative solutions to the Diophantine equation 5*b(n)^2 - 6*a(n)^2 = -1. The corresponding b(n) are A133283(n). Note that (b(n+1)^2 - b(n)*b(n+2))/4 = 6 and (a(n)*a(n+2) - a(n+1)^2)/4 = 5.
(a(n) + b(n))/2 = (b(n+1) - a(n+1))/2 = A077421(n-1) = Lucas U(22,1). Also b(n)*a(n+1) - b(n+1)*a(n) = -2.
a(n)=(t(i+2*n-1) + t(i))/(t(i+n) + t(i+n-1)) as long as t(i+n) + t(i+n-1) != 0 for any integer i and n >= 1 where (t) is a sequence satisfying t(i+3) = 21*t(i+2) - 21*t(i+1) + t(i) or t(i+2) = 22*t(i+1) - t(i) without regard to initial values and including this sequence itself. (End)

Crossrefs

Cf. similar sequences listed in A238379.

Programs

  • GAP
    a:=[1,21];; for n in [3..20] do a[n]:=22*a[n-1]-a[n-2]; od; a; # G. C. Greubel, Jan 14 2020
  • Magma
    I:=[1,21]; [n le 2 select I[n] else 22*Self(n-1)-Self(n-2): n in [1..20]]; // Vincenzo Librandi, Feb 21 2014
    
  • Maple
    seq( simplify(ChebyshevU(n-1,11) - ChebyshevU(n-2,11)), n=1..20); # G. C. Greubel, Jan 14 2020
  • Mathematica
    CoefficientList[Series[(1-x)/(1-22x+x^2), {x,0,20}], x] (* Vincenzo Librandi, Feb 21 2014 *)
    a[c_, n_] := Module[{},
       p := Length[ContinuedFraction[ Sqrt[ c]][[2]]];
       d := Denominator[Convergents[Sqrt[c], n p]];
       t := Table[d[[1 + i]], {i, 0, Length[d] - 1, p}];
       Return[t];
    ] (* Complement of A041049 *)
    a[30, 20] (* Gerry Martens, Jun 07 2015 *)
    Table[ChebyshevU[n-1, 11] - ChebyshevU[n-2, 11], {n,20}] (* G. C. Greubel, Jan 14 2020 *)
  • PARI
    Vec((1-x)/(1-22*x+x^2)+O(x^20)) \\ Charles R Greathouse IV, Sep 23 2012
    
  • Sage
    [chebyshev_U(n-1,11) - chebyshev_U(n-2,11) for n in (1..20)] # G. C. Greubel, Jan 14 2020
    

Formula

G.f.: x*(1-x)/(1-22*x+x^2).
a(1) = 1, a(2) = 21, a(n) = 22*a(n-1) - a(n-2) for n>2.
5*A157460(n)+1 = a(n)^2 for n>=1.
6*A157460(n)+1 = A133283(n)^2 for n>=1.
a(n) = (6+sqrt(30)-(-6+sqrt(30))*(11+2*sqrt(30))^(2*n))/(12*(11+2*sqrt(30))^n). - Gerry Martens, Jun 07 2015
a(n) = ChebyshevU(n-1, 11) - ChebyshevU(n-2, 11). - G. C. Greubel, Jan 14 2020

Extensions

Edited by Alois P. Heinz, Sep 09 2011

A160682 The list of the A values in the common solutions to 13*k+1 = A^2 and 17*k+1 = B^2.

Original entry on oeis.org

1, 14, 209, 3121, 46606, 695969, 10392929, 155197966, 2317576561, 34608450449, 516809180174, 7717529252161, 115246129602241, 1720974414781454, 25699370092119569, 383769576967012081, 5730844284413061646, 85578894689228912609, 1277952576054020627489
Offset: 1

Views

Author

Paul Weisenhorn, May 23 2009

Keywords

Comments

This summarizes the case C=13 of common solutions to C*k+1=A^2, (C+4)*k+1=B^2.
The 2 equations are equivalent to the Pell equation x^2-C*(C+4)*y^2=1,
with x=(C*(C+4)*k+C+2)/2; y=A*B/2 and with smallest values x(1) = (C+2)/2, y(1)=1/2.
Generic recurrences are:
A(j+2)=(C+2)*A(j+1)-A(j) with A(1)=1; A(2)=C+1.
B(j+2)=(C+2)*B(j+1)-B(j) with B(1)=1; B(2)=C+3.
k(j+3)=(C+1)*(C+3)*( k(j+2)-k(j+1) )+k(j) with k(1)=0; k(2)=C+2; k(3)=(C+1)*(C+2)*(C+3).
x(j+2)=(C^2+4*C+2)*x(j+1)-x(j) with x(1)=(C+2)/2; x(2)=(C^2+4*C+1)*(C+2)/2;
Binet-type of solutions of these 2nd order recurrences are:
R=C^2+4*C; S=C*sqrt(R); T=(C+2); U=sqrt(R); V=(C+4)*sqrt(R);
A(j)=((R+S)*(T+U)^(j-1)+(R-S)*(T-U)^(j-1))/(R*2^j);
B(j)=((R+V)*(T+U)^(j-1)+(R-V)*(T-U)^(j-1))/(R*2^j);
x(j)+sqrt(R)*y(j)=((T+U)*(C^2*4*C+2+(C+2)*sqrt(R))^(j-1))/2^j;
k(j)=(((T+U)*(R+2+T*U)^(j-1)+(T-U)*(R+2-T*U)^(j-1))/2^j-T)/R. [Paul Weisenhorn, May 24 2009]
.C -A----- -B----- -k-----
For n>=2, a(n) equals the permanent of the (2n-2)X(2n-2) tridiagonal matrix with sqrt(13)'s along the main diagonal, and 1's along the superdiagonal and the subdiagonal. [John M. Campbell, Jul 08 2011]
Positive values of x (or y) satisfying x^2 - 15xy + y^2 + 13 = 0. - Colin Barker, Feb 11 2014

Crossrefs

Cf. similar sequences listed in A238379.

Programs

  • Magma
    I:=[1,14]; [n le 2 select I[n] else 15*Self(n-1)-Self(n-2): n in [1..30]]; // Vincenzo Librandi, Feb 12 2014
    
  • Mathematica
    LinearRecurrence[{15,-1},{1,14},20] (* Harvey P. Dale, Oct 08 2012 *)
    CoefficientList[Series[(1 - x)/(1 - 15 x + x^2), {x, 0, 40}], x] (* Vincenzo Librandi, Feb 12 2014 *)
  • PARI
    a(n) = round((2^(-1-n)*((15-sqrt(221))^n*(13+sqrt(221))+(-13+sqrt(221))*(15+sqrt(221))^n))/sqrt(221)) \\ Colin Barker, Jul 25 2016

Formula

a(n) = 15*a(n-1)-a(n-2).
G.f.: (1-x)*x/(1-15*x+x^2).
a(n) = (2^(-1-n)*((15-sqrt(221))^n*(13+sqrt(221))+(-13+sqrt(221))*(15+sqrt(221))^n))/sqrt(221). - Colin Barker, Jul 25 2016

Extensions

Edited, extended by R. J. Mathar, Sep 02 2009
First formula corrected by Harvey P. Dale, Oct 08 2012

A075796 Numbers k such that 5*k^2 + 5 is a square.

Original entry on oeis.org

2, 38, 682, 12238, 219602, 3940598, 70711162, 1268860318, 22768774562, 408569081798, 7331474697802, 131557975478638, 2360712083917682, 42361259535039638, 760141959546795802, 13640194012307284798, 244763350261984330562, 4392100110703410665318, 78813038642399407645162
Offset: 1

Views

Author

Gregory V. Richardson, Oct 13 2002

Keywords

Comments

Bisection of A001077; a(n) = A001077(2*n-1). - Greg Dresden, Jun 08 2021
From Peter Bala, Aug 25 2022: (Start)
The aerated sequence (b(n))n>=1 = [2, 0, 38, 0, 682, 0, 1238, 0, ...] is a fourth-order linear divisibility sequence; that is, if n | m then b(n) | b(m). The sequence (1/2)*(b(n))n>=1 is the case P1 = 0, P2 = -16, Q = -1 of the 3-parameter family of divisibility sequences found by Williams and Guy. See A100047. (End)

References

  • A. H. Beiler, "The Pellian." Ch. 22 in Recreations in the Theory of Numbers: The Queen of Mathematics Entertains. Dover, New York, New York, pp. 248-268, 1966.
  • L. E. Dickson, History of the Theory of Numbers, Vol. II, Diophantine Analysis. AMS Chelsea Publishing, Providence, Rhode Island, 1999, pp. 341-400.
  • Peter G. L. Dirichlet, Lectures on Number Theory (History of Mathematics Source Series, V. 16); American Mathematical Society, Providence, Rhode Island, 1999, pp. 139-147.

Crossrefs

Programs

  • Magma
    I:=[2,38]; [n le 2 select I[n] else 18*Self(n-1)-Self(n-2): n in [1..20]]; // Vincenzo Librandi, Nov 30 2011
    
  • Magma
    [Lucas(6*n-3)/2: n in [1..20]]; // G. C. Greubel, Feb 13 2019
    
  • Maple
    with(combinat); A075796:=n->fibonacci(6*n+3)+fibonacci(6*n)/2; seq(A075796(n), n=1..50); # Wesley Ivan Hurt, Nov 29 2013
  • Mathematica
    LinearRecurrence[{18, -1}, {2, 38}, 50] (* Sture Sjöstedt, Nov 29 2011; typo fixed by Vincenzo Librandi, Nov 30 2011 *)
    LucasL[6*Range[20]-3]/2 (* G. C. Greubel, Feb 13 2019 *)
    CoefficientList[Series[2*(1+x)/( 1-18*x+x^2 ), {x,0,20}],x] (* Stefano Spezia, Mar 02 2019 *)
  • PARI
    vector(20, n, (fibonacci(6*n-2) + fibonacci(6*n-4))/2) \\ G. C. Greubel, Feb 13 2019
    
  • Sage
    [(fibonacci(6*n-2) + fibonacci(6*n-4))/2 for n in (1..20)] # G. C. Greubel, Feb 13 2019

Formula

a(n) = (((9 + 4*sqrt(5))^n - (9 - 4*sqrt(5))^n) + ((9 + 4*sqrt(5))^(n-1) - (9 - 4*sqrt(5))^(n-1)))/(4*sqrt(5)).
a(n) = 18*a(n-1) - a(n-2).
a(n) = 2*A049629(n-1).
Limit_{n->oo} a(n)/a(n-1) = 8*phi + 1 = 9 + 4*sqrt(5).
a(n+1) = 9*a(n) + 4*sqrt(5)*sqrt((a(n)^2+1)). - Richard Choulet, Aug 30 2007
G.f.: 2*x*(1 + x)/(1 - 18*x + x^2). - Richard Choulet, Oct 09 2007
From Johannes W. Meijer, Jul 01 2010: (Start)
a(n) = A000045(6*n+3) + A000045(6*n)/2.
a(n) = 2*A167808(6*n+4) - A167808(6*n+6).
Limit_{k->oo} a(n+k)/a(k) = A023039(n)*A060645(n)*sqrt(5).
(End)
5*A007805(n)^2 - 1 = a(n+1)^2. - Sture Sjöstedt, Nov 29 2011
From Peter Bala, Nov 29 2013: (Start)
a(n) = Lucas(6*n - 3)/2.
Sum_{n >= 1} 1/(a(n) + 5/a(n)) = 1/4. Compare with A002878, A005248, A023039. (End)
Limit_{n->oo} a(n)/A007805(n-1) = sqrt(5). - A.H.M. Smeets, May 29 2017
E.g.f.: (exp((9 - 4*sqrt(5))*x)*(- 5 + 2*sqrt(5) + (5 + 2*sqrt(5))*exp(8*sqrt(5)*x)))/(2*sqrt(5)). - Stefano Spezia, Feb 13 2019
Sum_{n > 0} 1/a(n) = (1/log(9 - 4*sqrt(5)))*(- 17 - 38/sqrt(5))*sqrt(5*(9 - 4*sqrt(5)))*(- 9 + 4*sqrt(5))*(psi_{9 - 4*sqrt(5)}(1/2) - psi_{9 - 4*sqrt(5)}(1/2 - (I*Pi)/log(9 - 4*sqrt(5)))) approximately equal to 0.527868600269500798938265500122302016..., where psi_q(x) is the q-digamma function. - Stefano Spezia, Feb 25 2019
a(n) = sinh((6*n - 3)*arccsch(2)). - Peter Luschny, May 25 2022

A103134 a(n) = Fibonacci(6n+4).

Original entry on oeis.org

3, 55, 987, 17711, 317811, 5702887, 102334155, 1836311903, 32951280099, 591286729879, 10610209857723, 190392490709135, 3416454622906707, 61305790721611591, 1100087778366101931, 19740274219868223167, 354224848179261915075, 6356306993006846248183
Offset: 0

Views

Author

Creighton Dement, Jan 24 2005

Keywords

Comments

Gives those numbers which are Fibonacci numbers in A103135.
Generally, for any sequence where a(0)= Fibonacci(p), a(1) = F(p+q) and Lucas(q)*a(1) +- a(0) = F(p+2q), then a(n) = L(q)*a(n-1) +- a(n-2) generates the following Fibonacci sequence: a(n) = F(q(n)+p). So for this sequence, a(n) = 18*a(n-1) - a(n-2) = F(6n+4): q=6, because 18 is the 6th Lucas number (L(0) = 2, L(1)=1); F(4)=3, F(10)=55 and F(16)=987 (F(0)=0 and F(1)=1). See Lucas sequence A000032. This is a special case where a(0) and a(1) are increasing Fibonacci numbers and Lucas(m)*a(1) +- a(0) is another Fibonacci. - Bob Selcoe, Jul 08 2013
a(n) = x + y where x and y are solutions to x^2 = 5*y^2 - 1. (See related sequences with formula below.) - Richard R. Forberg, Sep 05 2013

Crossrefs

Programs

Formula

G.f.: (x+3)/(x^2-18*x+1).
a(n) = 18*a(n-1) - a(n-2) for n>1; a(0)=3, a(1)=55. - Philippe Deléham, Nov 17 2008
a(n) = A007805(n) + A075796(n), as follows from comment above. - Richard R. Forberg, Sep 05 2013
a(n) = ((15-7*sqrt(5)+(9+4*sqrt(5))^(2*n)*(15+7*sqrt(5))))/(10*(9+4*sqrt(5))^n). - Colin Barker, Jan 24 2016
a(n) = S(3*n+1, 3) = 3*S(n,18) + S(n-1,18), with the Chebyshev S polynomials (A049310), S(-1, x) = 0, and S(n, 18) = A049660(n+1). - Wolfdieter Lang, May 08 2023

Extensions

Edited by N. J. A. Sloane, Aug 10 2010

A134495 a(n) = Fibonacci(6n + 3).

Original entry on oeis.org

2, 34, 610, 10946, 196418, 3524578, 63245986, 1134903170, 20365011074, 365435296162, 6557470319842, 117669030460994, 2111485077978050, 37889062373143906, 679891637638612258, 12200160415121876738
Offset: 0

Views

Author

Artur Jasinski, Oct 28 2007

Keywords

Comments

From Tanya Khovanova, Jan 06 2023: (Start)
Fibonacci(6n+3) are divisible by 2 but not by 4.
These numbers are not divisible by 3. (End)

Crossrefs

Programs

Formula

From R. J. Mathar, Apr 17 2011: (Start)
G.f.: (2-2*x) / (1 - 18*x + x^2).
a(n) = 2*A007805(n). (End)
a(n) = A000045(A016945(n)). - Michel Marcus, Nov 08 2013
a(n) = 2*(S(n, 18) - S(n-1, 18)), n >= 0, with the Chebyshev S-polynomials S(n-1, 18) = A049660(n). (See the g.f.) - Wolfdieter Lang, Jul 10 2018

Extensions

Index in definition and offset corrected by R. J. Mathar, Apr 17 2011

A131557 Triangular numbers that are the sums of five consecutive triangular numbers.

Original entry on oeis.org

55, 2485, 17020, 799480, 5479705, 257429395, 1764447310, 82891465030, 568146553435, 26690794309585, 182941425758080, 8594352876220660, 58906570947547645, 2767354935348742255, 18967732903684582930, 891079694829418784770, 6107551088415488155135
Offset: 1

Views

Author

Richard Choulet, Oct 06 2007

Keywords

Examples

			a(1) = 55 = 3+6+10+15+21.
		

Crossrefs

Cf. A129803.

Programs

  • Maple
    a:= n-> `if`(n<2, [0, 55][n+1], (<<0|1|0>, <0|0|1>, <1|-323|323>>^iquo(n-2, 2, 'r'). `if`(r=0, <<2485, 799480, 257429395>>, <<17020, 5479705, 1764447310>>))[1, 1]): seq(a(n), n=1..20); # Alois P. Heinz, Sep 25 2008, revised Dec 15 2011
  • Mathematica
    LinearRecurrence[{1, 322, -322, -1, 1}, {55, 2485, 17020, 799480, 5479705}, 20] (* Jean-François Alcover, Oct 05 2019 *)

Formula

The subsequences with odd indices and even indices satisfy the same recurrence relations: a(n+2) = 322*a(n+1) - a(n) - 680 and a(n+1) = 161*a(n) - 340 + 9*sqrt(320*a(n)^2 - 1360*a(n) - 175).
G.f.: -5*x*(11+486*x-635*x^2+2*x^4) / ( (x-1)*(x^2+18*x+1)*(x^2-18*x+1) ).
8*a(n) = 17 + 45*A007805(n) + 18*(-1)^n*A049629(n). - R. J. Mathar, Apr 28 2020

Extensions

More terms from Alois P. Heinz, Sep 25 2008
a(6) and a(8) corrected by Harvey P. Dale, Oct 02 2011
a(10), a(12), a(14) corrected at the suggestion of Harvey P. Dale by D. S. McNeil, Oct 02 2011
Previous Showing 11-20 of 36 results. Next