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.

Showing 1-7 of 7 results.

A099372 a(n) = A099371(n)^2.

Original entry on oeis.org

0, 1, 81, 6724, 558009, 46308025, 3843008064, 318923361289, 26466795978921, 2196425142889156, 182276820063821025, 15126779640154255921, 1255340433312739420416, 104178129185317217638609, 8645529381948016324584129, 717474760572500037722844100, 59541759598135555114671476169
Offset: 0

Views

Author

Wolfdieter Lang, Oct 18 2004

Keywords

Comments

See the comment in A099279. This is example a=9.
a(n+1) is the number of tilings of an n-board (a board with dimensions n X 1) using half-squares (1/2 X 1 pieces, always placed so that the shorter sides are horizontal) and (1/2,1/2)-fences if there are 9 kinds of half-square available. A (w,g)-fence is a tile composed of two w X 1 pieces separated horizontally by a gap of width g. a(n+1) also equals the number of tilings of an n-board using (1/4,1/4)-fences and (1/4,3/4)-fences if there are 9 kinds of (1/4,1/4)-fence available. - Michael A. Allen, Mar 21 2024

Links

Crossrefs

Cf. A099371, A099373.
Cf. other squares of k-metallonacci numbers (for k=1 to 10): A007598, A079291, A092936, A099279, A099365, A099366, A099367, A099369, this sequence, A099374.

Programs

  • Mathematica
    LinearRecurrence[{82,82,-1},{0,1,81},17] (* Stefano Spezia, Apr 06 2023 *)

Formula

a(n) = A099371(n)^2.
a(n) = 82*a(n-1) + 82*a(n-2) - a(n-3), n>=3; a(0)=0, a(1)=1, a(2)=81.
a(n) = 83*a(n-1) - a(n-2) - 2*(-1)^n, n>=2; a(0)=0, a(1)=1.
a(n) = 2*(T(n, 83/2)-(-1)^n)/85 with twice the Chebyshev polynomials of the first kind: 2*T(n, 83/2) = A099373(n).
G.f.: x*(1-x)/((1-83*x+x^2)*(1+x)) = x*(1-x)/(1-82*x-82*x^2+x^3).
E.g.f.: 2*exp(-x)*(exp(85*x/2)*cosh(9*sqrt(85)*x/2) - 1)/85. - Stefano Spezia, Apr 06 2023
a(n) = (1 - (-1)^n)/2 + 81*Sum_{r=1..n-1} r*a(n-r). - Michael A. Allen, Mar 21 2024
Product_{n>=2} (1 + (-1)^n/a(n)) = (9 + sqrt(85))/18 (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A099365 Squares of A052918(n-1) (generalized Fibonacci).

Original entry on oeis.org

0, 1, 25, 676, 18225, 491401, 13249600, 357247801, 9632441025, 259718659876, 7002771375625, 188815108482001, 5091005157638400, 137268324147754801, 3701153746831741225, 99793882840309258276, 2690733682941518232225
Offset: 0

Views

Author

Wolfdieter Lang, Oct 18 2004

Keywords

Comments

See the comment in A099279. This is example a=5.
a(n+1) is the number of tilings of an n-board (a board with dimensions n X 1) using half-squares (1/2 X 1 pieces, always placed so that the shorter sides are horizontal) and (1/2,1/2)-fences if there are 5 kinds of half-squares available. A (w,g)-fence is a tile composed of two w X 1 pieces separated horizontally by a gap of width g. a(n+1) also equals the number of tilings of an n-board using (1/4,1/4)-fences and (1/4,3/4)-fences if there are 5 kinds of (1/4,1/4)-fences available. - Michael A. Allen, Mar 30 2023

Links

Crossrefs

Cf. other squares of k-metallonacci numbers (for k=1 to 10): A007598, A079291, A092936, A099279, this sequence, A099366, A099367, A099369, A099372, A099374.

Programs

  • Magma
    [(2/29)*(Evaluate(ChebyshevFirst(n), 27/2) -(-1)^n): n in [0..30]]; // G. C. Greubel, Aug 21 2022
  • Maple
    with (combinat):seq(fibonacci(n,5)^2,n=0..16); # Zerinvary Lajos, Apr 09 2008
  • Mathematica
    LinearRecurrence[{26,26,-1},{0,1,25},30] (* Harvey P. Dale, Sep 25 2019 *)
  • SageMath
    def A099365(n): return (2/29)*(chebyshev_T(n, 27/2) - (-1)^n)
[A099365(n) for n in (0..30)] # G. C. Greubel, Aug 21 2022

Formula

a(n) = A052918(n-1)^2, n >= 1, a(0) = 0.
a(n) = 26*a(n-1) + 26*a(n-2) - a(n-3), n >= 3; a(0)=0, a(1)=1, a(2)=25.
a(n) = 27*a(n-1) - a(n-2) - 2*(-1)^n, n >= 2; a(0)=0, a(1)=1.
a(n) = 2*(T(n, 27/2) - (-1)^n)/29 with twice the Chebyshev's T(n, x) polynomials of the first kind. 2*T(n, 27/2) = A090248(n).
G.f.: x*(1-x)/((1-27*x+x^2)*(1+x)) = x*(1-x)/(1-26*x-26*x^2+x^3).
a(n) = (1 - (-1)^n)/2 + 25*Sum_{r=1..n-1} r*a(n-r). - Michael A. Allen, Mar 30 2023
Product_{n>=2} (1 + (-1)^n/a(n)) = (5 + sqrt(29))/10 (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A099369 Squares of A041025(n-1), n>=1, (generalized Fibonacci).

Original entry on oeis.org

0, 1, 64, 4225, 278784, 18395521, 1213825600, 80094094081, 5284996383744, 348729667233025, 23010873040995904, 1518368891038496641, 100189335935499782400, 6610977802851947141761, 436224345652293011573824
Offset: 0

Views

Author

Wolfdieter Lang, Oct 18 2004

Keywords

Comments

See the comment in A099279. This is example a=8.
a(n+1) is the number of tilings of an n-board (a board with dimensions n X 1) using half-squares (1/2 X 1 pieces, always placed so that the shorter sides are horizontal) and (1/2,1/2)-fences if there are 8 kinds of half-squares available. A (w,g)-fence is a tile composed of two w X 1 pieces separated horizontally by a gap of width g. a(n+1) also equals the number of tilings of an n-board using (1/4,1/4)-fences and (1/4,3/4)-fences if there are 8 kinds of (1/4,1/4)-fences available. - Michael A. Allen, Apr 30 2023

Links

Crossrefs

Cf. other squares of k-metallonacci numbers (for k=1 to 10): A007598, A079291, A092936, A099279, A099365, A099366, A099367, this sequence, A099372, A099374.

Programs

  • Mathematica
    LinearRecurrence[{65,65,-1},{0,1,64},20] (* Harvey P. Dale, Oct 05 2021 *)

Formula

a(n) = A041025(n-1)^2, n >= 1, a(0)=0.
a(n) = 65*a(n-1) + 65*a(n-2) - a(n-3), n >= 3; a(0)=0, a(1)=1, a(2)=64.
a(n) = 66*a(n-1) - a(n-2) - 2*(-1)^n, n >= 2; a(0)=0, a(1)=1.
a(n) = (T(n, 33) - (-1)^n)/34 with the Chebyshev polynomials of the first kind: T(n, 33) = A099370(n).
G.f.: x*(1-x)/((1-66*x+x^2)*(1+x)) = x*(1-x)/(1-65*x-65*x^2+x^3).
a(n) = (1 - (-1)^n)/2 + 64*Sum_{r=1..n-1} r*a(n-r). - Michael A. Allen, Apr 30 2023
Product_{n>=2} (1 + (-1)^n/a(n)) = (4 + sqrt(17))/8 (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A099374 a(n) = A041041(n-1)^2, n >= 1.

Original entry on oeis.org

0, 1, 100, 10201, 1040400, 106110601, 10822240900, 1103762461201, 112572948801600, 11481337015302001, 1170983802612002500, 119428866529408953001, 12180573402197101203600
Offset: 0

Views

Author

Wolfdieter Lang, Oct 18 2004

Keywords

Comments

See the comment in A099279. This is example a=10.
a(n+1) is the number of tilings of an n-board (a board with dimensions n X 1) using half-squares (1/2 X 1 pieces, always placed so that the shorter sides are horizontal) and (1/2,1/2)-fences if there are 10 kinds of half-squares available. A (w,g)-fence is a tile composed of two w X 1 pieces separated horizontally by a gap of width g. a(n+1) also equals the number of tilings of an n-board using (1/4,1/4)-fences and (1/4,3/4)-fences if there are 10 kinds of (1/4,1/4)-fences available. - Michael A. Allen, Mar 21 2024

Links

Crossrefs

Cf. other squares of k-metallonacci numbers (for k=1 to 10): A007598, A079291, A092936, A099279, A099365, A099366, A099367, A099369, A099372, this sequence.

Programs

  • Mathematica
    LinearRecurrence[{101,101,-1},{0,1,100},20] (* Harvey P. Dale, Nov 10 2021 *)

Formula

a(n) = A041041(n-1)^2, n >= 1, a(0)=0.
a(n) = 101*a(n-1) + 101*a(n-2) - a(n-3), n >= 3; a(0)=0, a(1)=1, a(2)=100.
a(n) = 102*a(n-1) - a(n-2) - 2*(-1)^n, n >= 2; a(0)=0, a(1)=1.
a(n) = (T(n, 51) - (-1)^n)/52 with the Chebyshev polynomials of the first kind: T(n, 51) = (n).
G.f.: x*(1-x)/((1-102*x+x^2)*(1+x)) = x*(1-x)/(1-101*x-101*x^2+x^3).
a(n) = (1 - (-1)^n)/2 + 100*Sum_{r=1..n-1} r*a(n-r). - Michael A. Allen, Mar 21 2024
Product_{n>=2} (1 + (-1)^n/a(n)) = (5 + sqrt(26))/10 (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A099367 a(n) = A054413(n-1)^2, n >= 1.

Original entry on oeis.org

0, 1, 49, 2500, 127449, 6497401, 331240000, 16886742601, 860892632649, 43888637522500, 2237459621014849, 114066552034234801, 5815156694124960000, 296458924848338725201, 15113590010571150025249, 770496631614280312562500
Offset: 0

Views

Author

Wolfdieter Lang, Oct 18 2004

Keywords

Comments

See the comment in A099279. This is example a=7.

Links

Crossrefs

Cf. A054413.
Cf. other squares of k-metallonacci numbers (for k=1 to 10): A007598, A079291, A092936, A099279, A099365, A099366, this sequence, A099369, A099372, A099374.

Programs

  • Mathematica
    LinearRecurrence[{50,50,-1},{0,1,49},20] (* Harvey P. Dale, Jul 27 2023 *)

Formula

a(n) = A054413(n-1)^2, n >= 1. a(0)=0.
a(n) = 50*a(n-1) + 50*a(n-2) - a(n-3), n >= 3; a(0)=0, a(1)=1, a(2)=49.
a(n) = 51*a(n-1) - a(n-2) - 2*(-1)^n, n >= 2; a(0)=0, a(1)=1.
a(n) = 2*(T(n, 51/2) - (-1)^n)/53 with twice the Chebyshev polynomials of the first kind: 2*T(n, 51/2) = A099368(n).
G.f.: x*(1-x)/((1-51*x+x^2)*(1+x)) = x*(1-x)/(1-50*x-50*x^2+x^3).
a(n+1) = (1 + (-1)^n)/2 + 49*Sum_{k=1..n} k*a(n+1-k). - Michael A. Allen, Feb 21 2023
Product_{n>=2} (1 + (-1)^n/a(n)) = (7 + sqrt(53))/14 (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A099366 Squares of A005668.

Original entry on oeis.org

0, 1, 36, 1369, 51984, 1974025, 74960964, 2846542609, 108093658176, 4104712468081, 155870980128900, 5918992532430121, 224765845252215696, 8535183127051766329, 324112192982714904804, 12307728150216114616225
Offset: 0

Views

Author

Wolfdieter Lang, Oct 18 2004

Keywords

Comments

See the comment in A099279. This is example a=6.
a(n+1) is the number of tilings of an n-board (a board with dimensions n X 1) using half-squares (1/2 X 1 pieces, always placed so that the shorter sides are horizontal) and (1/2,1/2)-fences if there are 6 kinds of half-squares available. A (w,g)-fence is a tile composed of two w X 1 pieces separated horizontally by a gap of width g. a(n+1) also equals the number of tilings of an n-board using (1/4,1/4)-fences and (1/4,3/4)-fences if there are 6 kinds of (1/4,1/4)-fences available. - Michael A. Allen, Apr 21 2023

Links

Crossrefs

Cf. other squares of k-metallonacci numbers (for k=1 to 10): A007598, A079291, A092936, A099279, A099365, this sequence, A099367, A099369, A099372, A099374.

Programs

  • Maple
    with (combinat):seq(fibonacci(n,6)^2,n=0..15); # Zerinvary Lajos, Apr 09 2008
  • Mathematica
    LinearRecurrence[{37,37,-1},{0,1,36},20] (* Harvey P. Dale, Sep 23 2018 *)

Formula

a(n) = A005668(n)^2.
a(n) = 37*a(n-1) + 37*a(n-2) - a(n-3), n >= 3; a(0)=0, a(1)=1, a(2)=36.
a(n) = 38*a(n-1) - a(n-2) - 2*(-1)^n, n >= 2; a(0)=0, a(1)=1.
a(n) = (T(n, 19) - (-1)^n)/20 with the Chebyshev polynomials of the first kind: T(n, 19) = A078986(n).
G.f.: x*(1-x)/((1 - 38*x + x^2)*(1+x)) = x*(1-x)/(1 - 37*x - 37*x^2 + x^3).
a(n) = (1 - (-1)^n)/2 + 36*Sum_{r=1..n-1} r*a(n-r). - Michael A. Allen, Apr 21 2023
Product_{n>=2} (1 + (-1)^n/a(n)) = (3 + sqrt(10))/6 (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A214995 Power ceiling-floor sequence of (golden ratio)^6.

Original entry on oeis.org

18, 322, 5779, 103699, 1860804, 33390772, 599173093, 10751724901, 192931875126, 3462022027366, 62123464617463, 1114760341086967, 20003562674947944, 358949367807976024, 6441085057868620489, 115580581673827192777, 2074009385071020849498
Offset: 0

Views

Author

Clark Kimberling, Nov 09 2012

Keywords

Comments

See A214992 for a discussion of power ceiling-floor sequence and the power ceiling-floor function, p3(x) = limit of a(n,x)/x^n. The present sequence is a(n,r), where r = (golden ratio)^6, and the limit p3(r) = 17.94722275971790615684809...

Examples

			a(0) = ceiling(r) = [17.9] = 18 , where r=(1+sqrt(5))^6;
a(1) = floor(18*r) = 322; a(2) = ceiling(322*r ) = 5779.

Links

Crossrefs

Cf. A214992, A007805, A156085, A049660.

Programs

  • Mathematica
    x = GoldenRatio^6; 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}]  (* A007805 *)
Table[p2[n], {n, 0, z}]  (* A156085 *)
Table[p3[n], {n, 0, z}]  (* A214995 *)
Table[p4[n], {n, 0, z}]  (* A049660 *)
Table[p4[n] - p1[n], {n, 0, z}]  (* A049660 *)
Table[p3[n] - p2[n], {n, 0, z}]  (* A099279 *)
LinearRecurrence[{17,17,-1},{18,322,5779},30] (* Harvey P. Dale, Feb 25 2013 *)
  • PARI
    Vec((18+16*x-x^2)/((1+x)*(1-18*x+x^2)) + O(x^20)) \\ Colin Barker, Mar 04 2016

Formula

a(n) = floor(x*a(n-1)) if n is odd, a(n) = ceiling(x*a(n-1)) if n is even, where x=((1+sqrt(5))/2)^6 and a(0) = ceiling(x).
a(n) = 17*a(n-1) + 17*a(n-2) - a(n-3).
G.f.: (18 + 16*x - x^2)/((1 + x)*(1 - 18*x + x^2)).
a(n) = (4*(-1)^n+(718-321*sqrt(5))*(9+4*sqrt(5))^(-n)+(9+4*sqrt(5))^n*(718+321*sqrt(5)))/80. - Colin Barker, Mar 04 2016
E.g.f.: exp(-x)*(2 + exp(10*x)*(718*cosh(4*sqrt(5)*x) + 321*sqrt(5)*sinh(4*sqrt(5)*x)))/40. - Stefano Spezia, Oct 28 2024
Showing 1-7 of 7 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.