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 21-30 of 66 results. Next

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

A033891 a(n) = Fibonacci(4*n+3).

Original entry on oeis.org

2, 13, 89, 610, 4181, 28657, 196418, 1346269, 9227465, 63245986, 433494437, 2971215073, 20365011074, 139583862445, 956722026041, 6557470319842, 44945570212853, 308061521170129, 2111485077978050
Offset: 0

Views

Author

Keywords

Crossrefs

Programs

Formula

a(n) = 7*a(n-1) - a(n-2). - Floor van Lamoen, Dec 10 2001
G.f.: (2-x)/(1-7*x+x^2). - Philippe Deléham, Nov 17 2008
a(n) = A167816(4*n+3). - Reinhard Zumkeller, Nov 13 2009
a(n) = Fibonacci(2*n+2)^2 + Fibonacci(2*n+1)^2. - Gary Detlefs, Oct 12 2011
a(n) = 2*A004187(n+1) - A004187(n). - R. J. Mathar, Nov 26 2011
a(n) = A004187(n+1) + A049685(n). - Yuriy Sibirmovsky, Sep 15 2016
From Peter Bala, Aug 11 2022: (Start)
Let n ** m = n*m + floor(phi*n)*floor(phi*m), where phi = (1 + sqrt(5))/2, denote the Porta-Stolarsky star product of the integers n and m (see A101858). Then a(n) = 2 ** 2 ** ... ** 2 (n+1 factors).
a(2*n+1) = a(n) ** a(n) = Fibonacci(8*n+7); a(3*n+2) = a(n) ** a(n) ** a(n) = Fibonacci(12*n+11) and so on. (End)

A033889 a(n) = Fibonacci(4*n + 1).

Original entry on oeis.org

1, 5, 34, 233, 1597, 10946, 75025, 514229, 3524578, 24157817, 165580141, 1134903170, 7778742049, 53316291173, 365435296162, 2504730781961, 17167680177565, 117669030460994, 806515533049393, 5527939700884757, 37889062373143906, 259695496911122585, 1779979416004714189
Offset: 0

Views

Author

Keywords

Comments

For positive n, a(n) equals (-1)^n times the permanent of the (4n) X (4n) tridiagonal matrix with sqrt(i)'s along the three central diagonals, where i is the imaginary unit. - John M. Campbell, Jul 12 2011
a(n) = 5^n*a(n; 3/5) = (16/5)^n*a(2*n; 3/4), and F(4*n) = 5^n*b(n; 3/5) = (16/5)^n*b(2*n; 3/4), where a(n; d) and b(n; d), n=0, 1, ..., d in C, denote the delta-Fibonacci numbers defined in comments to A014445. Two of these identities from the following relations follows: F(k+1)^n*a(n; F(k)/F(k+1)) = F(k*n+1) and F(k+1)^n*b(n; F(k)/F(k+1)) = F(k*n) (see also Witula's et al. papers). - Roman Witula, Jul 24 2012

Crossrefs

Programs

Formula

a(n) = 7*a(n-1) - a(n-2) for n >= 2. - Floor van Lamoen, Dec 10 2001
From R. J. Mathar, Jan 17 2008: (Start)
O.g.f.: (1 - 2*x)/(1 - 7*x + x^2).
a(n) = A004187(n+1) - 2*A004187(n). (End); corrected by Klaus Purath, Jul 29 2020
a(n) = A167816(4*n+1). - Reinhard Zumkeller, Nov 13 2009
a(n) = sqrt(1 + 2 * Fibonacci(2*n) * Fibonacci(2*n + 1) + 5 * (Fibonacci(2*n) * Fibonacci(2*n + 1))^2). - Artur Jasinski, Feb 06 2010
a(n) = Sum_{k=0..n} A122070(n,k)*2^k. - Philippe Deléham, Mar 13 2012
a(n) = Fibonacci(2*n)^2 + Fibonacci(2*n)*Fibonacci(2*n+2) + 1. - Gary Detlefs, Apr 18 2012
a(n) = Fibonacci(2*n)^2 + Fibonacci(2*n+1)^2. - Bruno Berselli, Apr 19 2012
a(n) = Sum_{k = 0..n} A238731(n,k)*4^k. - Philippe Deléham, Mar 05 2014
a(n) = A000045(A016813(n)). - Michel Marcus, Mar 05 2014
2*a(n) = Fibonacci(4*n) + Lucas(4*n). - Bruno Berselli, Oct 13 2017
a(n) = A094567(n-1) + A094567(n), assuming A094567(-1) = 0. - Klaus Purath, Jul 29 2020
Sum_{n>=0} (-1)^n * arctan(3/a(n)) = Pi/4 (A003881) (Wan, 2022). - Amiram Eldar, Mar 01 2024
E.g.f.: exp(7*x/2)*(5*cosh(3*sqrt(5)*x/2) + sqrt(5)*sinh(3*sqrt(5)*x/2))/5. - Stefano Spezia, Jun 03 2024

A004190 Expansion of 1/(1 - 11*x + x^2).

Original entry on oeis.org

1, 11, 120, 1309, 14279, 155760, 1699081, 18534131, 202176360, 2205405829, 24057287759, 262424759520, 2862615066961, 31226340977051, 340627135680600, 3715672151509549, 40531766530924439, 442133759688659280, 4822939590044327641, 52610201730798944771, 573889279448744064840
Offset: 0

Views

Author

Keywords

Comments

Chebyshev or generalized Fibonacci sequence.
This is the m=13 member of the m-family of sequences S(n,m-2) = S(2*n+1,sqrt(m))/sqrt(m). The m=4..12 (nonnegative) sequences are A000027, A001906, A001353, A004254, A001109, A004187, A001090, A018913 and A004189. The m=1..3 (signed) sequences are A049347, A056594, A010892.
All positive integer solutions of Pell equation b(n)^2 - 117*a(n)^2 = +4 together with b(n+1)=A057076(n+1), n >= 0. - Wolfdieter Lang, Aug 31 2004
For positive n, a(n) equals the permanent of the tridiagonal matrix of order n with 11's along the main diagonal, and i's along the superdiagonal and the subdiagonal (i is the imaginary unit). - John M. Campbell, Jul 08 2011
a(n) equals the number of 01-avoiding words of length n-1 on alphabet {0,1,...,10}. - Milan Janjic, Jan 25 2015
17*a(n+1) + 4*(a(n) + (-1)^n) is 13 times the numerator of the continued fraction [3,3,...,3,1,3,...,3,3] with n+1 3's on either side of the central 1. For example, when n=2 the continued fraction [3,3,3,1,3,3,3] = 1749/529, and 17*a(3) + 4(a(2)+1) = 17*1309 + 4*121 = 22737 = 13*1749. - Greg Dresden and Tulipa Wray, Aug 26 2025

Examples

			G.f. = 1 + 11*x + 120*x^2 + 1309*x^3 + 14279*x^4 + 155760*x^5 + ...
		

Crossrefs

Programs

Formula

Recursion: a(n) = 11*a(n-1) - a(n-2), n >= 1; a(-1)=0, a(0)=1.
a(n) = S(2*n+1, sqrt(13))/sqrt(13) = S(n, 11); S(n, x) := U(n, x/2), Chebyshev polynomials of 2nd kind, A049310.
G.f.: 1/(1 - 11*x + x^2).
a(n) = ((11+3*sqrt(13))^(n+1) - (11-3*sqrt(13))^(n+1))/(2^(n+1)*3*sqrt(13)). - Rolf Pleisch, May 22 2011
a(n) = Sum_{k=0..n} A101950(n,k)*10^k. - Philippe Deléham, Feb 10 2012
From Peter Bala, Dec 23 2012: (Start)
Product_{n>=0} (1 + 1/a(n)) = 1/3*(3 + sqrt(13)).
Product_{n>=1} (1 - 1/a(n)) = 3/22*(3 + sqrt(13)). (End)
a(n) = sqrt((A057076(n+1)^2 - 4)/117).
a(n) = A075835(n+1)/3 = A006190(2*n+2)/3. - Vladimir Reshetnikov, Sep 16 2016
a(n) = -a(-2-n) for all n in Z. - Michael Somos, Jul 14 2018
E.g.f.: exp(11*x/2)*(39*cosh(3*sqrt(13)*x/2) + 11*sqrt(13)*sinh(3*sqrt(13)*x/2))/39. - Stefano Spezia, Aug 07 2024

Extensions

Wolfdieter Lang, Oct 31 2002

A058038 a(n) = Fibonacci(2*n)*Fibonacci(2*n+2).

Original entry on oeis.org

0, 3, 24, 168, 1155, 7920, 54288, 372099, 2550408, 17480760, 119814915, 821223648, 5628750624, 38580030723, 264431464440, 1812440220360, 12422650078083, 85146110326224, 583600122205488, 4000054745112195, 27416783093579880, 187917426909946968
Offset: 0

Views

Author

N. J. A. Sloane, Jun 09 2002

Keywords

Comments

Partial sums of A033888, i.e., a(n) = Sum_{k=0..n} Fibonacci(4*k). - Vladeta Jovovic, Jun 09 2002
From Paul Weisenhorn, May 17 2009: (Start)
a(n) is the solution of the 2 equations a(n)+1=A^2 and 5*a(n)+1=B^2
which are equivalent to the Pell equation (10*a(n)+3)^2-5*(A*B)^2=4.
(End)
Numbers a(n) such as a(n)+1 and 5*a(n)+1 are perfect squares. - Sture Sjöstedt, Nov 03 2011

Examples

			G.f. = 3*x + 24*x^2 + 168*x^3 + 1155*x^4 + 7920*x^5 + 54288*x^6 + ... - _Michael Somos_, Jan 23 2025
		

References

  • A. T. Benjamin and J. J. Quinn, Proofs that really count: the art of combinatorial proof, M.A.A. 2003, id. 29.
  • H. J. H. Tuenter, Fibonacci summation identities arising from Catalan's identity, Fib. Q., 60:4 (2022), 312-319.

Crossrefs

Bisection of A059929, A064831 and A080097.
Related to sum of fibonacci(kn) over n; cf. A000071, A099919, A027941, A138134, A053606.

Programs

  • Magma
    [Fibonacci(2*n)*Fibonacci(2*n+2): n in [0..30]]; // Vincenzo Librandi, Apr 18 2011
    
  • Maple
    fs4:=n->sum(fibonacci(4*k),k=0..n):seq(fs4(n),n=0..21); # Gary Detlefs, Dec 07 2010
  • Mathematica
    Table[Fibonacci[2 n]*Fibonacci[2 n + 2], {n, 0, 100}] (* Vladimir Joseph Stephan Orlovsky, Jul 01 2011 *)
    Accumulate[Fibonacci[4*Range[0,30]]] (* or *) LinearRecurrence[{8,-8,1},{0,3,24},30] (* Harvey P. Dale, Jul 25 2013 *)
  • PARI
    a(n)=fibonacci(2*n)*fibonacci(2*n+2) \\ Charles R Greathouse IV, Jul 02 2013

Formula

a(n) = -3/5 + (1/5*sqrt(5)+3/5)*(2*1/(7+3*sqrt(5)))^n/(7+3*sqrt(5)) + (1/5*sqrt(5)-3/5)*(-2*1/(-7+3*sqrt(5)))^n/(-7+3*sqrt(5)). Recurrence: a(n) = 8*a(n-1) - 8*a(n-2) + a(n-3). G.f.: 3*x/(1-7*x+x^2)/(1-x). - Vladeta Jovovic, Jun 09 2002
a(n) = A081068(n) - 1.
a(n) is the next integer from ((3+sqrt(5))*((7+3*sqrt(5))/2)^(n-1)-6)/10. - Paul Weisenhorn, May 17 2009
a(n) = 7*a(n-1) - a(n-2) + 3, n>1. - Gary Detlefs, Dec 07 2010
a(n) = sum_{k=0..n} Fibonacci(4k). - Gary Detlefs, Dec 07 2010
a(n) = (Lucas(4n+2)-3)/5, where Lucas(n)= A000032(n). - Gary Detlefs, Dec 07 2010
a(n) = (1/5)*(Fibonacci(4n+4) - Fibonacci(4n)-3). - Gary Detlefs, Dec 08 2010
a(n) = 3*A092521(n). - R. J. Mathar, Nov 03 2011
a(0)=0, a(1)=3, a(2)=24, a(n) = 8*a(n-1) - 8*a(n-2) + a(n-3). - Harvey P. Dale, Jul 25 2013
a(n) = A001906(n)*A001906(n+1). - R. J. Mathar, Jul 09 2019
Sum_{n>=1} 1/a(n) = 2/(3 + sqrt(5)) = A094874 - 1. - Amiram Eldar, Oct 05 2020
a(n) = a(-1-n) for all n in Z. - Michael Somos, Jan 23 2025

A057085 a(n) = 9*a(n-1) - 9*a(n-2) for n>1, with a(0)=0, a(1)=1.

Original entry on oeis.org

0, 1, 9, 72, 567, 4455, 34992, 274833, 2158569, 16953624, 133155495, 1045816839, 8213952096, 64513217313, 506693386953, 3979621526760, 31256353258263, 245490585583527, 1928108090927376, 15143557548094641, 118939045114505385, 934159388097696696
Offset: 0

Views

Author

Wolfdieter Lang, Aug 11 2000

Keywords

Comments

Scaled Chebyshev U-polynomials evaluated at 3/2.

Crossrefs

Programs

  • Magma
    [3^(n-1)*Fibonacci(2*n): n in [0..30]]; // G. C. Greubel, May 02 2022
  • Mathematica
    f[n_]:= Fibonacci[2n]*3^(n-1); Table[f@n, {n, 0, 20}] (* or *)
    a[0]=0; a[1]=1; a[n_]:= a[n]= 9(a[n-1] -a[n-2]); Table[a[n], {n, 0, 20}] (* or *)
    CoefficientList[Series[x/(1-9x +9x^2), {x, 0, 20}], x] (* Robert G. Wilson v Sep 21 2006 *)
  • PARI
    a(n)=(1/3)*sum(k=0,n,binomial(n,k)*fibonacci(4*k)) \\ Benoit Cloitre
    
  • PARI
    concat(0, Vec(x/(1-9*x+9*x^2) + O(x^30))) \\ Colin Barker, Jun 14 2015
    
  • Sage
    [lucas_number1(n,9,9) for n in range(0, 21)] # Zerinvary Lajos, Apr 23 2009
    

Formula

a(n) = A001906(n)*3^(n-1).
a(n) = S(n, 3)*3^n with S(n, x) := U(n, x/2), Chebyshev's polynomials of the 2nd kind, A049310.
a(n) = A001906(n)*A000244(n)/3. - Robert G. Wilson v, Sep 21 2006
a(2k) = A004187(k)*9^k/3, a(2k-1) = A033890(k)*9^k.
G.f.: x/(1-9*x+9*x^2).
a(n) = (1/3)*Sum_{k=0..n} binomial(n, k)*Fibonacci(4*k). - Benoit Cloitre, Jun 21 2003
a(n+1) = Sum_{k=0..n} A109466(n,k)*9^k. - Philippe Deléham, Oct 28 2008
E.g.f.: 2*exp(9*x/2)*sinh(3*sqrt(5)*x/2)/(3*sqrt(5)). - Stefano Spezia, Sep 01 2025

Extensions

Edited by N. J. A. Sloane, Sep 16 2005

A215466 Expansion of x*(1-4*x+x^2) / ( (x^2-7*x+1)*(x^2-3*x+1) ).

Original entry on oeis.org

0, 1, 6, 38, 252, 1705, 11628, 79547, 544824, 3733234, 25585230, 175356611, 1201893336, 8237850373, 56462937882, 387002396990, 2652553009008, 18180866487757, 124613506702404, 854113665498719, 5854182112700460
Offset: 0

Views

Author

R. J. Mathar, Aug 11 2012

Keywords

Comments

From Peter Bala, Aug 05 2019: (Start)
Let U(n;P,Q), where P and Q are integer parameters, denote the Lucas sequence of the first kind. Then, excluding the case P = -1, the sequence ( U(n;P,1) + U(2*n;P,1) )/(P + 1) is a fourth-order linear divisibility sequence with o.g.f. x*(1 - 2*(P - 1)*x + x^2)/((1 - P*x + x^2)*(1 - (P^2 - 2)*x + x^2)). This is the case P = 3. See A000027 (P = 2), A165998 (P = -2) and A238536 (P = -3).
More generally, the sequence U(n;P,1) + U(2*n;P,1) + ... + U(k*n;P,1) is a linear divisibility sequence of order 2*k. As an example, see A273625 (P = 3, k = 3 and then sequence normalized with initial term 1). (End)

Crossrefs

Programs

  • Magma
    I:=[0,1,6,38]; [n le 4 select I[n] else 10*Self(n-1)-23*Self(n-2)+10*Self(n-3)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Dec 23 2012
    
  • Magma
    /* By definition: */ m:=20; R:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!((1-4*x+x^2)/((x^2-7*x+1)*(x^2-3*x+1)))); // Bruno Berselli, Dec 24 2012
    
  • Maple
    A215466 := proc(n)
        if type(n,'even') then
            A000032(n)*combinat[fibonacci](3*n)/4 ;
        else
            combinat[fibonacci](n)*A000032(3*n)/4 ;
        end if;
    end proc:
  • Mathematica
    CoefficientList[Series[x*(1 - 4*x + x^2)/((x^2 - 7*x + 1)*(x^2 - 3*x + 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 23 2012 *)
    LinearRecurrence[{10,-23,10,-1},{0,1,6,38},30] (* Harvey P. Dale, Nov 02 2015 *)
  • PARI
    a(n)=([0,1,0,0; 0,0,1,0; 0,0,0,1; -1,10,-23,10]^n*[0;1;6;38])[1,1] \\ Charles R Greathouse IV, Nov 13 2015
    
  • PARI
    {a(n) = my(w=quadgen(5)^(2*n)); imag(w^2+w)/4}; /* Michael Somos, Dec 29 2022 */

Formula

a(n) = L(n)*F(3n)/4 if n even, = F(n)*L(3n)/4 if n odd, where L=A000032, F=A000045.
a(n) = 3*A004187(n)/4 + A001906(n)/4.
a(n) = 10*a(n-1) - 23*a(n-2) + 10*a(n-3) - a(n-4), a(0)=0, a(1)=1, a(2)=6, a(3)=38. - Harvey P. Dale, Nov 02 2015
a(n) = (1/4)*(Fibonacci(2*n) + Fibonacci(4*n)) = (1/4)*(A001906(n) + A033888(n)). - Peter Bala, Aug 05 2019
E.g.f.: exp(5*x/2)*(cosh(x)+exp(x)*cosh(sqrt(5)*x))*sinh(sqrt(5)*x/2)/sqrt(5). - Stefano Spezia, Aug 17 2019
a(n) = -a(-n) for all n in Z. - Michael Somos, Dec 29 2022

A078362 A Chebyshev S-sequence with Diophantine property.

Original entry on oeis.org

1, 13, 168, 2171, 28055, 362544, 4685017, 60542677, 782369784, 10110264515, 130651068911, 1688353631328, 21817946138353, 281944946167261, 3643466354036040, 47083117656301259, 608437063177880327
Offset: 0

Views

Author

Wolfdieter Lang, Nov 29 2002

Keywords

Comments

a(n) gives the general (positive integer) solution of the Pell equation b^2 - 165*a^2 = +4 with companion sequence b(n)=A078363(n+1), n >= 0.
This is the m=15 member of the m-family of sequences S(n,m-2) = S(2*n+1,sqrt(m))/sqrt(m). The m=4..14 (nonnegative) sequences are: A000027, A001906, A001353, A004254, A001109, A004187, A001090, A018913, A004189, A004190 and A004191. The m=1..3 (signed) sequences are A049347, A056594, A010892.
For positive n, a(n) equals the permanent of the tridiagonal matrix of order n with 13's along the main diagonal, and i's along the superdiagonal and the subdiagonal (i is the imaginary unit). - John M. Campbell, Jul 08 2011
For n >= 1, a(n) equals the number of 01-avoiding words of length n-1 on alphabet {0,1,...,12}. - Milan Janjic, Jan 23 2015

Crossrefs

Cf. A078363.

Programs

  • GAP
    a:=[1,13,168];; for n in [4..20] do a[n]:=13*a[n-1]-a[n-2]; od; a; # G. C. Greubel, May 25 2019
  • Magma
    I:=[1, 13, 168]; [n le 3 select I[n] else 13*Self(n-1)-Self(n-2): n in [1..20]]; // Vincenzo Librandi, Dec 24 2012
    
  • Mathematica
    CoefficientList[Series[1/(1 - 13 x + x^2), {x, 0, 20}], x] (* Vincenzo Librandi, Dec 24 2012 *)
    LinearRecurrence[{13,-1},{1,13},20] (* Harvey P. Dale, Feb 07 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec(1/(1-13*x+x^2)) \\ G. C. Greubel, May 25 2019
    
  • Sage
    [lucas_number1(n,13,1) for n in range(1,20)] # Zerinvary Lajos, Jun 25 2008
    

Formula

a(n) = 13*a(n-1) - a(n-2), n >= 1; a(-1)=0, a(0)=1.
a(n) = S(2*n+1, sqrt(15))/sqrt(15) = S(n, 13), where S(n, x) = U(n, x/2), Chebyshev polynomials of the 2nd kind, A049310.
a(n) = (ap^(n+1) - am^(n+1))/(ap-am) with ap = (13+sqrt(165))/2 and am = (13-sqrt(165))/2.
G.f.: 1/(1 - 13*x + x^2).
a(n) = Sum_{k=0..n} A101950(n,k)*12^k. - Philippe Deléham, Feb 10 2012
Product {n >= 0} (1 + 1/a(n)) = (1/11)*(11 + sqrt(165)). - Peter Bala, Dec 23 2012
Product {n >= 1} (1 - 1/a(n)) = (1/26)*(11 + sqrt(165)). - Peter Bala, Dec 23 2012
For n >= 1, a(n) = U(n-1,13/2), where U(k,x) represents Chebyshev polynomial of the second order.
a(n) = sqrt((A078363(n+1)^2 - 4)/165), n>=0, (Pell equation d=165, +4).

A316269 Array T(n,k) = n*T(n,k-1) - T(n,k-2) read by upward antidiagonals, with T(n,0) = 0, T(n,1) = 1, n >= 2.

Original entry on oeis.org

0, 0, 1, 0, 1, 2, 0, 1, 3, 3, 0, 1, 4, 8, 4, 0, 1, 5, 15, 21, 5, 0, 1, 6, 24, 56, 55, 6, 0, 1, 7, 35, 115, 209, 144, 7, 0, 1, 8, 48, 204, 551, 780, 377, 8, 0, 1, 9, 63, 329, 1189, 2640, 2911, 987, 9, 0, 1, 10, 80, 496, 2255, 6930, 12649, 10864, 2584, 10
Offset: 2

Views

Author

Jianing Song, Jun 28 2018

Keywords

Comments

Define {x(k)} to be an integer sequence satisfying all the following conditions:
(i) {x(k)} satisfies second-order linear recursion, that is, there exists two integers P, Q such that x(k+2) = P*x(k+1) + Q*x(k) holds for all k >= 0.
(ii) {x(k)} is (not necessarily strictly) increasing. ({A000035(k)} satisfies condition (i), but it doesn't satisfy this.)
(iii) All terms in {x(k)} do not share a common factor. ({A024023(k)} satisfies both conditions (i) and (ii), but all terms share a common factor 2.)
(iv) {x(k)} satisfies strong divisibility, that is, gcd(x(m),x(n)) = x(gcd(m,n)) holds for all m, n >= 0. ({A093131(k)} satisfies all conditions (i) to (iii), but 5 = gcd(A093131(2),A093131(3)) != A093131(gcd(2,3)) = 1.)
(v) For all positive integers n, there eventually exists some m > 0 such that n divides x(m). ({A002275(k)} satisfies all conditions (i) to (iv), but 2, 5 and 10 never divide any term.)
Then it's easy to show that the only solutions to {x(k)} are x(k) = A172236(n,k) or x(k) = T(n,k), i.e., x(0) = 0, x(1) = 1, P >= 1, Q = 1 or P >= 2, Q = -1.
The case n = 0 is not included since it gives the period-4 signed sequence 0, 1, 0, -1, 0, 1, 0, -1, ..., the g.f. of which is the inverse of the 4th cyclotomic polynomial.
The case n = 1 is not included since it gives the period-6 signed sequence 0, 1, 1, 0, -1, -1, ..., the g.f. of which is the inverse of the 6th cyclotomic polynomial.
The congruence property: let p be an odd prime which is not divisible by n^2 - 4, then T(n,(p-1)/2) == 1/2(((n-2)/p) - ((n+2)/p)) (mod p), T(n,(p+1)/2) == 1/2(((n-2)/p) + ((n+2)/p)) (mod p). Here ((n-2)/p) is the Legendre symbol. Or equivalently:
((n-2)/p)...((n+2)/p)...T(n,(p-1)/2) mod p...T(n,(p+1)/2) mod p
.....1...........1...............0....................1
....-1..........-1...............0...................-1
.....1..........-1...............1....................0
....-1...........1..............-1....................0
To prove this, rewrite (n +- sqrt(n^2-4))/2 as ((sqrt(n+2) +- sqrt(n-2))/2)^2.
Let E(n,m) be the smallest number l such that m divides T(n,l), we have: E(n,p) divides (p - ((n^2-4)/p))/2 for odd primes p that are not divisible by n^2 - 4. E(n,p) = p for odd primes p that are divisible by n^2 - 4. E(n,2) = 2 for even n and 3 for odd n.
E(n,p^e) <= p^(e-1)*E(n,p) for all primes p. If p^2 does not divide T(n,E(n,p)), then E(n,p^e) = p^(e-1)*E(n,p) for all exponent e. Specially, for primes p >= 5 that are divisible by n^2 - 4, p^2 is never divisible by T(n,p), so E(n,p^e) = p^e as described above. E(n,m_1*m_2) = lcm(E(n,m_1),E(n,m_2)) if gcd(m_1,m_2) = 1.
Given n, the largest possible value of E(n,m)/m is 1 for even n and 3/2 for odd n. It can be obtained by the value of E(n,2) described above.
Let pi(n,m) be the Pisano period of T(n,k) modulo m, i.e, the smallest number l such that T(n,k+1) == T(n,k) (mod m) holds for all k >= 0, we have: for odd primes p that are not divisible by n^2 - 4, pi(n,p) divides p + ((n-2)/p) if ((n+2)/p) = -1 and (p - ((n-2)/p))/2 if ((n+2)/p) = 1. pi(n,p) = p for odd primes p that are divisible by n - 2 and 2p for odd primes p that are divisible by n + 2. pi(n,2) = 2 even n and 3 for odd n.
pi(n,p^e) <= p^(e-1)*pi(n,p) for all primes p. If p^2 does not divide T(n,E(n,p)), then pi(n,p^e) = p^(e-1)*pi(n,p) for all exponent e. Specially, for primes p >= 5 that are divisible by n^2 - 4, p^2 is never divisible by T(n,p), so pi(n,p^e) = p^e or 2p^e as described above. pi(n,m_1*m_2) = lcm(pi(n,m_1),pi(n,m_2)) if gcd(m_1,m_2) = 1.
Given n, the largest possible value of pi(n,m)/m is:
Parity of n...n + 2 is a power of 2 or 3...max{pi(n,m)/m}.....obtained by
....even..........yes (even exponent)............1...........pi(n,2^e) = 2^e
....even...........yes (odd exponent)...........4/3............pi(n,3) = 4
....even...................no....................2.............pi(n,p) = 2p (p >= 3 is any prime factor of n + 2)
.....odd..................yes....................2..........pi(n,3^e) = 2*3^e
.....odd...................no....................3..........pi(n,2p^e) = 6p^e (p >= 5 is any prime factor of n + 2)
The largest possible value of pi(n,m)/m is obtained by infinitely many m except for the case n = 10, in which we have pi(10,3) = 6, pi(10,7) = 8, pi(10,21) = 24 and pi(10,m)/m <= 14/13 for all other m. [Corrected by Jianing Song, Nov 04 2018]
Let z(n,m) be the number of zeros in a period of T(n,k) modulo m, i.e., z(n,m) = pi(n,m)/E(n,m), then we have: for odd primes p that are not divisible by n^2 - 4, z(n,p) = 2 if ((n+2)/p) = -1; 1 or 2 if ((n+2)/p) = 1. z(n,p) = 1 for odd primes p that are divisible by n - 2 and 2 for odd primes p that are divisible by n + 2. z(n,2) = 1.
For all odd primes p, z(n,p) = 2 if and only if pi(n,p) is even, z(n,p) = 1 if and only if pi(n,p) is odd. For all odd primes p, if E(n,p) is even then z(n,p) = 2 (the converse is not necessarily true). [Comment revised by Jianing Song, Jul 06 2019]
z(n,p^e) = z(n,p) for all odd primes p. z(n,4) = 1 if n == 2, 3 (mod 4) and 2 if n == 0, 1 (mod 4). z(n,2^e) = 1 for even n and 2 for odd n, e >= 3.
By induction it is easy to show that T(n,k) = T(n,m+1)*T(n,k-m) - T(n,m)*T(k-m-1). Let k = 2m we have T(n,2m) = T(n,m)*(T(n,m+1)-T(m-1)); let k = 2m+1 we have T(n,2m+1) = T(n,m+1)^2 - T(n,m)^2 = (T(n,m+1)+T(n,m))*(T(n,m+1)-T(n,m)). So T(n,k) is composite if n >= 3, k >= 3. - Jianing Song, Jul 06 2019

Examples

			The array starts in row n = 2 with columns k >= 0 as follows:
  0      1      2      3      4      5      6
  0      1      3      8     21     55    144
  0      1      4     15     56    209    780
  0      1      5     24    115    551   2640
  0      1      6     35    204   1189   6930
  0      1      7     48    329   2255  15456
  0      1      8     63    496   3905  30744
  0      1      9     80    711   6319  56160
  0      1     10     99    980   9701  96030
  0      1     11    120   1309  14279 155760
		

Crossrefs

Cf. A172236.
Sequences with g.f. 1/(1-k*x+x^2): A001477 (k=2), A001906 (k=3), A001353 (k=4), A004254 (k=5), A001109 (k=6), A004187 (k=7), A001090 (k=8), A018913 (k=9), A004189 (k=10).
Cf. A005563 (4th column), A242135 (5th column), A057722 (6th column).

Programs

  • Mathematica
    Table[If[# == 2, k, Simplify[(((# + Sqrt[#^2 - 4])/2)^k - ((# - Sqrt[#^2 - 4])/2)^k)/Sqrt[#^2 - 4]]] &[n - k + 2], {n, 0, 10}, {k, n, 0, -1}] // Flatten (* Michael De Vlieger, Jul 19 2018 *)
  • PARI
    T(n, k) = if (k==0, 0, if (k==1, 1, n*T(n,k-1) - T(n,k-2)));
    tabl(nn) = for(n=2, nn, for (k=0, nn, print1(T(n,k), ", ")); print); \\ Michel Marcus, Jul 03 2018
    
  • PARI
    T(n, k) = ([n, -1; 1, 0]^k)[2, 1] \\ Jianing Song, Nov 10 2018

Formula

T(2,k) = k; T(n,k) = (((n+sqrt(n^2 - 4))/2)^k - ((n - sqrt(n^2 - 4))/2)^k)/sqrt(n^2 - 4), n >= 3, k >= 0.
T(n^2+2,k) = A172236(n,2k); T(n^4+4n^2+2,k) = A172236(n,4k)/A172236(n,4).
For n >= 2, Sum_{i=1..k} 1/T(n,2^i) = 2/n - ((u^(2^k-1) + v^(2^k-1))/(u + v)) * (1/T(n,2^k)), where u = (n + sqrt(n^2 - 4))/2, v = (n - sqrt(n^2 - 4))/2 are the two roots of the polynomial x^2 - n*x + 1. As a result, Sum_{i=>1} 1/T(n,2^i) = (n - sqrt(n^2 - 4))/2. - Jianing Song, Apr 21 2019

A078364 A Chebyshev S-sequence with Diophantine property.

Original entry on oeis.org

1, 15, 224, 3345, 49951, 745920, 11138849, 166336815, 2483913376, 37092363825, 553901543999, 8271430796160, 123517560398401, 1844491975179855, 27543862067299424, 411313439034311505
Offset: 0

Views

Author

Wolfdieter Lang, Nov 29 2002

Keywords

Comments

a(n) gives the general (positive integer) solution of the Pell equation b^2 - 221*a^2 = +4 with companion sequence b(n)=A078365(n+1), n>=0.
This is the m=17 member of the m-family of sequences S(n,m-2) = S(2*n+1,sqrt(m))/sqrt(m). The m=4..16 (nonnegative) sequences are: A000027, A001906, A001353, A004254, A001109, A004187, A001090, A018913, A004189, A004190, A004191, A078362 and A007655. The m=1..3 (signed) sequences are A049347, A056594, A010892.
For positive n, a(n) equals the permanent of the n X n tridiagonal matrix with 15's along the main diagonal, and i's along the superdiagonal and the subdiagonal (i is the imaginary unit). - John M. Campbell, Jul 08 2011
For n>=2, a(n) equals the number of 01-avoiding words of length n-1 on alphabet {0,1,...,14}. - Milan Janjic, Jan 23 2015

Crossrefs

a(n) = sqrt((A078365(n+1)^2 - 4)/221), n>=0, (Pell equation d=221, +4).
Cf. A077428, A078355 (Pell +4 equations).

Programs

  • Mathematica
    LinearRecurrence[{15,-1},{1,15},30] (* Harvey P. Dale, Oct 16 2011 *)
  • Sage
    [lucas_number1(n,15,1) for n in range(1,20)] # Zerinvary Lajos, Jun 25 2008

Formula

a(n) = 15*a(n-1) - a(n-2), n>= 1; a(-1)=0, a(0)=1.
a(n) = S(2*n+1, sqrt(17))/sqrt(17) = S(n, 15); S(n, x) := U(n, x/2), Chebyshev polynomials of the 2nd kind, A049310.
a(n) = (ap^(n+1) - am^(n+1))/(ap-am) with ap = (15+sqrt(221))/2 and am = (15-sqrt(221))/2.
G.f.: 1/(1 - 15*x + x^2). - Philippe Deléham, Nov 17 2008
a(n) = Sum_{k=0..n} A101950(n,k)*14^k. - Philippe Deléham, Feb 10 2012
Product {n >= 0} (1 + 1/a(n)) = 1/13*(13 + sqrt(221)). - Peter Bala, Dec 23 2012
Product {n >= 1} (1 - 1/a(n)) = 1/30*(13 + sqrt(221)). - Peter Bala, Dec 23 2012
For n>=1, a(n) = U(n-1,15/2), where U(k,x) is Chebyshev polynomial of the second kind. - Milan Janjic, Jan 23 2015
Previous Showing 21-30 of 66 results. Next