A076765 -id:A076765 - cp's OEIS frontend

A212336 Expansion of 1/(1 - 23x + 23x^2 - x^3).

1, 23, 506, 11110, 243915, 5355021, 117566548, 2581109036, 56666832245, 1244089200355, 27313295575566, 599648413462098, 13164951800590591, 289029291199530905, 6345479454589089320, 139311518709760434136, 3058507932160140461673

Offset: 0

Bruno Berselli, Jun 08 2012

Partial sums of A077421.

Bruno Berselli, Table of n, a(n) for n = 0..200
Robert K. Moniot, A Family of Integer Sequences, 2021.
Index entries for linear recurrences with constant coefficients, signature (23,-23,1).

Sequences with g.f. of the type 1/(1-k*x+k*x^2-x^3): A334673 (k=24), A212336 (k=23), A212335 (k=22), A097833 (k=21), A097832 (k=20), A049664 (k=19), A097831-A097829 (k=18,17,16), A076139 (k=15), A097828-A097826 (k=14,13,12), A097784 (k=11), A092420 (k=10), A076765 (k=9), A092521 (k=8), A053142 (k=7), A089817(k=6), A061278 (k=5), A027941 (k=4), A000217 (k=3), A021823 (k=2), A133872 (k=1), A079978 (k=0).

m:=17; R:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1-23*x+23*x^2-x^3)));

I:=[1,23,506]; [n le 3 select I[n] else 23*Self(n-1)-23*Self(n-2)+Self(n-3): n in [1..20]]; // Vincenzo Librandi, Aug 18 2013

a:= n-> (<<0|1|0>, <0|0|1>, <1|-23|23>>^n. <<1, 23, 506>>)[1, 1]:
seq(a(n), n=0..20);  # Alois P. Heinz, Jun 15 2012

CoefficientList[Series[1/(1 - 23 x + 23 x^2 - x^3), {x, 0, 16}], x]
LinearRecurrence[{23, -23, 1}, {1, 23, 506}, 20] (* Vincenzo Librandi, Aug 18 2013 *)

makelist(coeff(taylor(1/(1-23*x+23*x^2-x^3), x, 0, n), x, n), n, 0, 16);

PARI
```
Vec(1/(1-23*x+23*x^2-x^3)+O(x^17))
```

[(1/20)*(-1 +21*chebyshev_U(n, 11) -chebyshev_U(n-1, 11)) for n in (0..30)] # G. C. Greubel, Feb 07 2022

G.f.: 1/((1-x)*(1 - 22*x + x^2)).
a(n) = (((6+sqrt(30))^(2*n+3) + (6-sqrt(30))^(2*n+3))/6^(n+1) - 12)/240.
a(n) = a(-n-3) = 23*a(n-1) - 23*a(n-2) + a(n-3).
a(n)*a(n+2) = a(n+1)*(a(n+1)-1).
a(n+1) - 11*a(n) = A133285(n+2).
11*a(n+1) - a(n) = (1/5)*A157096(n+2).
a(n) = (1/20)*(-1 + 21*ChebyshevU(n, 11) - ChebyshevU(n-1, 11)). - G. C. Greubel, Feb 07 2022

A097826 Partial sums of Chebyshev sequence S(n,11) = U(n,11/2) = A004190(n).

Original entry on oeis.org

1, 12, 132, 1441, 15720, 171480, 1870561, 20404692, 222581052, 2427986881, 26485274640, 288910034160, 3151525101121, 34377866078172, 375005001758772, 4090677153268321, 44622443684192760, 486756203372852040, 5309695793417179681, 57919897524216124452

Offset: 0

Wolfdieter Lang, Aug 31 2004

Colin Barker, Table of n, a(n) for n = 0..963
R. C. Alperin, A nonlinear recurrence and its relations to Chebyshev polynomials, Fib. Q., Vol. 58, No. 2 (2020), 140-142.
Index entries for sequences related to Chebyshev polynomials.
Index entries for linear recurrences with constant coefficients, signature (12,-12,1).

Cf. A076765, A097784.

Cf. A212336 for more sequences with g.f. of the type 1/(1-k*x+k*x^2-x^3).

a:=[1,12,132];; for n in [4..30] do a[n]:=12*a[n-1]-12*a[n-2]+ a[n-3]; od; a; # G. C. Greubel, May 24 2019

I:=[1,12,132]; [n le 3 select I[n] else 12*Self(n-1)-12*Self(n-2) + Self(n-3): n in [1..30]]; // G. C. Greubel, May 24 2019

LinearRecurrence[{12,-12,1}, {1,12,132}, 30] (* G. C. Greubel, May 24 2019 *)

Vec(1/((1-x)*(1-11*x+x^2)) + O(x^30)) \\ Colin Barker, Jun 15 2015

(1/((1-x)*(1 - 11*x + x^2))).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, May 24 2019

a(n) = Sum_{k=0..n} S(k, 11), with S(k, 11) = U(k, 11/2) = A004190(k) Chebyshev's polynomials of the second kind.
G.f.: 1/((1-x)*(1 - 11*x + x^2)) = 1/(1 - 12*x + 12*x^2 - x^3).
a(n) = 12*a(n-1) - 12*a(n-2) + a(n-3) with n >= 2, a(-1)=0, a(0)=1, a(1)=12.
a(n) = 11*a(n-1) - a(n-2) + 1 with n >= 1, a(-1)=0, a(0)=1.
a(n) = (S(n+1, 11) - S(n, 11) - 1)/9.
a(n) = (2^(-n)*(-13*2^n + (65 - 18*sqrt(13))*(11 - 3*sqrt(13))^n + (11 + 3*sqrt(13))^n*(65 + 18*sqrt(13))))/117. - Colin Barker, Mar 06 2016

A264236 Number of vertices at level n of the hyperbolic Pascal pyramid.

Original entry on oeis.org

1, 3, 6, 13, 36, 138, 736, 4908, 36351, 280228, 2190651, 17206203, 135357481, 1065387963, 8387050686, 66029196613, 519841755036, 4092692363058, 32221664474776, 253680537891828, 1997222414704551, 15724098193422028, 123795561597659331, 974640390569138163

Offset: 0

Michel Marcus, Nov 09 2015

Colin Barker, Table of n, a(n) for n = 0..1000
László Németh, Hyperbolic Pascal pyramid, arXiv:1511.02067 [math.CO], 2015 (6th line of Table 1).
Index entries for linear recurrences with constant coefficients, signature (12,-37,37,-12,1).

Cf. A076765, A027941, A055588, A264237.

LinearRecurrence[{12, -37, 37, -12, 1}, {1, 3, 6, 13, 36}, 30] (* Bruno Berselli, Nov 09 2015 *)

Vec((1-9*x+7*x^2+15*x^3+3*x^4)/((1-x)*(1-3*x+x^2)*(1-8*x+x^2)) + O(x^50)) \\ Altug Alkan, Nov 09 2015

a(n) = 12*a(n-1) - 37*a(n-2) + 37*a(n-3) - 12*a(n-4) + a(n-5).
a(n) = (-3/2 + 9*sqrt(5)/10)*((3 + sqrt(5))/2)^n + (-3/2 - 9*sqrt(5)/10)*((3 - sqrt(5))/2)^n + (7/12 - 3*sqrt(15)/20)*(4 + sqrt(15))^n + (7/12 + 3*sqrt(15)/20)*(4 - sqrt(15))^n + 17/6. (See Németh paper, page 9.)
G.f.: (1 - 9*x + 7*x^2 + 15*x^3 + 3*x^4)/((1 - x)*(1 - 3*x + x^2)*(1 - 8*x + x^2)). [Bruno Berselli, Nov 09 2015]
a(n) = A076765(n-3) + 3*Fibonacci(2*(n-1)) + 3. - Ehren Metcalfe, Apr 18 2019

More terms from Bruno Berselli, Nov 09 2015

A095004 a(n) = 9a(n-1) - 9a(n-2) + a(n-3); given a(1) = 1, a(2) = 10, a(3) = 81.

Original entry on oeis.org

1, 10, 81, 640, 5041, 39690, 312481, 2460160, 19368801, 152490250, 1200553201, 9451935360, 74414929681, 585867502090, 4612525087041, 36314333194240, 285902140466881, 2250902790540810, 17721320183859601, 139519658680336000, 1098435949258828401, 8647967935390291210

Offset: 1

Gary W. Adamson, May 27 2004

A sequence derived from A076765, with a(n)/a(n-1) tending to 4 + sqrt(15).
a(n)/a(n-1) tends to C = 4 + sqrt(15) = 7.87298334... (C having the property that C + 1/C = 8). Eigenvalues of M (1, C, 1/C) are roots to x^3 - 9x^2 + 9x - 1.
This is the r=10 member of the r-family of sequences S_r(n), n>=1, defined in A092184, where more information can be found.

			a(4) = 640 = 568 + 72 = A076765(3) + A076765(2).
a(4) = 640 = 9*81 - 9*10 + 1.
a(4) = 640, rightmost term in M^4 * [1 0 0]: [145 352 640] = [A095002(4) A095003(4) A095004(4)].

Marco Abrate, Stefano Barbero, Umberto Cerruti, and Nadir Murru, Polynomial sequences on quadratic curves, Integers, Vol. 15, 2015, #A38.
Index entries for sequences related to Chebyshev polynomials.
Index entries for linear recurrences with constant coefficients, signature (9,-9,1).

Cf. A095002, A095003, A076765.

a:= n-> (<<1|1|1>, <1|2|3>, <1|3|6>>^n)[1, 3]:
seq(a(n), n=1..23);  # Alois P. Heinz, Jun 06 2021

a[n_] := (MatrixPower[{{1, 1, 1}, {1, 2, 3}, {1, 3, 6}}, n].{{1}, {0}, {0}})[[3, 1]]; Table[ a[n], {n, 20}]; (* Robert G. Wilson v, May 29 2004 *)

a(n) = A076765(n-1) + A076765(n-2).
Let M be the 3 X 3 matrix [1 1 1 / 1 2 3 / 1 3 6]; then M^n * [1 0 0] = [A095002(n) A095003(n) a(n)].
a(n)= (T(n, 4)-1)/3 with Chebyshev's polynomials of the first kind evaluated at x=4: T(n, 4)=A001091(n). a(0):=0. - Wolfdieter Lang, Oct 18 2004
G.f.: x*(1+x)/((1-x)*(1-8*x+x^2)) = x*(1+x)/(1-9*x+9*x^2-x^3).

Edited and extended by Robert G. Wilson v, May 29 2004

Definition aligned with A095002, A095003 by Georg Fischer, Jun 06 2021

A095002 a(n) = 9a(n-1) - 9a(n-2) + a(n-3); given a(1) = 1, a(2) = 3, a(3) = 19.

Original entry on oeis.org

1, 3, 19, 145, 1137, 8947, 70435, 554529, 4365793, 34371811, 270608691, 2130497713, 16773373009, 132056486355, 1039678517827, 8185371656257, 64443294732225, 507360986201539, 3994444594880083, 31448195772839121, 247591121587832881, 1949280776929823923

Offset: 1

Gary W. Adamson, May 27 2004

A companion to A095003, A005004; a(n)/a(n-1) tending to 4 + sqrt(15).

a(n)/a(n-1) tends to C = 4 + sqrt(15); C having the property that C + 1/C = 8. Eigenvalues of M (1, C, 1/C) are roots to x^3 - 9x^2 + 9x - 1.

			a(4) = 145 = 9*19 - 9*3 + 1.
a(4) = 145, leftmost term in M^4 * [1 0 0] = [145 352 640].

Harvey P. Dale, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (9,-9,1).

Cf. A095003, A095004, A076765.

a:= n-> (<<1|1|1>, <1|2|3>, <1|3|6>>^n)[1$2]:
seq(a(n), n=1..23);  # Alois P. Heinz, Jun 06 2021

a[n_] := (MatrixPower[{{1, 1, 1}, {1, 2, 3}, {1, 3, 6}}, n].{{1}, {0},
{0}})[[1, 1]]; Table[ a[n], {n, 20}]; (* Robert G. Wilson v, May 29 2004 *)
nxt[{a_,b_,c_}]:={b,c,9c-9b+a}; NestList[nxt,{1,3,19},30][[All,1]] (* Harvey P. Dale, Sep 02 2022 *)

Vec(x*(1-6*x+x^2)/((1-x)*(1-8*x+x^2)) + O(x^20)) \\ Michel Marcus, Mar 21 2015

Let M be the 3 X 3 matrix [1 1 1 / 1 2 3 / 1 3 6]. M^n * [1 0 0] = [a(n) A095003(n) A095004(n)].
From R. J. Mathar, Aug 22 2008: (Start)
O.g.f.: x*(1-6x+x^2)/((1-x)*(1-8x+x^2)).
a(n) = (2 + A001090(n+1) - 7*A001090(n))/3. (End)

Edited and extended by Robert G. Wilson v, May 29 2004

Edited by Georg Fischer, Jun 06 2021

A077784 Numbers k such that (10^k - 1)/3 + 2*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

3, 5, 35, 159, 237, 325, 355, 371, 481, 1649, 3641, 4709, 269623

Offset: 1

Patrick De Geest, Nov 16 2002

Prime versus probable prime status and proofs are given in the author's table.

a(13) > 2*10^5. - Robert Price, Apr 03 2016

			5 is a term because (10^5 - 1)/3 + 2*10^2 = 33533.

C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Patrick De Geest, World!Of Numbers, Palindromic Wing Primes (PWP's)
Makoto Kamada, Prime numbers of the form 33...33533...33
Index entries for primes involving repunits.

Partial sums of S(n, x), for x=1...9: A021823, A000217, A027941, A061278, A089817, A053142, A092521, A076765, A092420.

Cf. A004023, A077775-A077798, A107123-A107127, A107648, A107649, A115073, A183174-A183187.

Do[ If[ PrimeQ[(10^n + 6*10^Floor[n/2] - 1)/3], Print[n]], {n, 3, 4800, 2}] (* Robert G. Wilson v, Dec 16 2005 *)

a(n) = 2*A183175(n) + 1.

Name corrected by Jon E. Schoenfield, Oct 31 2018

a(13) from Robert Price, Aug 03 2024

A077828 Expansion of 1/(1-3x-3x^2-3*x^3).

Original entry on oeis.org

1, 3, 12, 48, 189, 747, 2952, 11664, 46089, 182115, 719604, 2843424, 11235429, 44395371, 175422672, 693160416, 2738935377, 10822555395, 42763953564, 168976333008, 667688525901, 2638286437419, 10424853888984, 41192486556912, 162766880649945, 643152663287523

Offset: 0

N. J. A. Sloane, Nov 17 2002

Michael De Vlieger, Table of n, a(n) for n = 0..1675
Yassine Otmani, The 2-Pascal Triangle and a Related Riordan Array, J. Int. Seq. (2025) Vol. 28, Issue 3, Art. No. 25.3.5. See p. 19.
Index entries for linear recurrences with constant coefficients, signature (3,3,3).

Partial sums of S(n, x), for x=1...12, A021823, A000217, A027941, A061278, A089817, A053142, A092521, A076765, A092420, A097784, A097826-7.

Cf. A071675.

CoefficientList[Series[1/(1-3x-3x^2-3x^3),{x,0,30}],x] (* or *) LinearRecurrence[ {3,3,3},{1,3,12},30] (* Harvey P. Dale, Dec 25 2018 *)

Vec(1/(1-3*x-3*x^2-3*x^3)+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012

a(n) = sum{k=0..n, T(n-k, k)3^(n-k)}, T(n, k) = trinomial coefficients (A027907). - Paul Barry, Feb 15 2005

a(n) = sum{k=0..n, sum{i=0..floor((n-k)/2), C(n-k-i, i)C(k, n-k-i)}*3^k}. - Paul Barry, Apr 26 2005

A077829 Expansion of 1/(1-3x-3x^2-2*x^3).

Original entry on oeis.org

1, 3, 12, 47, 183, 714, 2785, 10863, 42372, 165275, 644667, 2514570, 9808261, 38257827, 149227404, 582072215, 2270414511, 8855914986, 34543132921, 134737972743, 525555146964, 2049965624963, 7996038261267, 31189121952618, 121655411891581, 474525678055131

Offset: 0

N. J. A. Sloane, Nov 17 2002

Index entries for linear recurrences with constant coefficients, signature (3,3,2).

Partial sums of S(n, x), for x=1...14, A021823, A000217, A027941, A061278, A089817, A053142, A092521, A076765, A092420, A097784, A097826-A097828, A076139.

CoefficientList[Series[1/(1 - 3*x - 3*x^2 - 2*x^3), {x, 0, 30}], x] (* Wesley Ivan Hurt, Jan 20 2024 *)
LinearRecurrence[{3,3,2},{1,3,12},30] (* Harvey P. Dale, Dec 20 2024 *)

Vec(1/(1-3*x-3*x^2-2*x^3)+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012

G.f.: 1/(1-3*x-3*x^2-2*x^3).

a(n) = 3*a(n-1) + 3*a(n-2) + 2*a(n-3). - Wesley Ivan Hurt, Jan 20 2024

A077831 Expansion of 1/(1-3x-2x^2-2*x^3).

Original entry on oeis.org

1, 3, 11, 41, 151, 557, 2055, 7581, 27967, 103173, 380615, 1404125, 5179951, 19109333, 70496151, 260067021, 959412031, 3539362437, 13057045415, 48168685181, 177698871247, 655548074933, 2418379337655, 8921631905325, 32912750541151, 121418274109413

Offset: 0

N. J. A. Sloane, Nov 17 2002

Harvey P. Dale, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,2,2).

Partial sums of S(n, x), for x=1...16, A021823, A000217, A027941, A061278, A089817, A053142, A092521, A076765, A092420, A097784, A097826-A097828, A076139, A097829, A097830.

CoefficientList[Series[1/(1-3x-2x^2-2x^3),{x,0,30}],x] (* or *) LinearRecurrence[{3,2,2},{1,3,11},30] (* Harvey P. Dale, Feb 28 2025 *)

Vec(1/(1-3*x-2*x^2-2*x^3)+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012

A095003 a(n) = 9a(n-1) - 9a(n-2) + a(n-3).

Original entry on oeis.org

1, 6, 45, 352, 2769, 21798, 171613, 1351104, 10637217, 83746630, 659335821, 5190939936, 40868183665, 321754529382, 2533168051389, 19943589881728, 157015551002433, 1236180818137734, 9732430994099437, 76623267134657760, 603253706083162641, 4749406381530643366

Offset: 1

Gary W. Adamson, May 27 2004

nonn

a(n)/a(n-1) tends to 7.87298... = 4 + sqrt(15) = C (having the property that C + 1/C = 8). Eigenvalues of M are C, 1/C, 1; being roots of x^3 - 9x^2 + 9x - 1.

			a(4) = 352 since M^4 * [1 0 0] = [145, 352, 640].

Index entries for linear recurrences with constant coefficients, signature (9,-9,1).

Cf. A095002, A095004, A076765.

a:= n-> (<<1|1|1>, <1|2|3>, <1|3|6>>^n)[1, 2]:
seq(a(n), n=1..23);  # Alois P. Heinz, Jun 06 2021

a[n_] := (MatrixPower[{{1, 1, 1}, {1, 2, 3}, {1, 3, 6}}, n].{{1}, {0}, {0}})[[2, 1]]; Table[ a[n], {n, 20}]; (* Robert G. Wilson v, May 29 2004 *)
LinearRecurrence[{9,-9,1},{1,6,45},30] (* Harvey P. Dale, Nov 12 2022 *)

a(n+3) = 9*a(n+2) - 9*a(n+1) + a(n); given a(1) = 1, a(2) = 6, a(3) = 45.

Let M be the 3 X 3 matrix [1 1 1 / 1 2 3 / 1 3 6]. M^n * [1 0 0] = [A095002(n) a(n) A095004(n)].

Edited and extended by Robert G. Wilson v, May 29 2004

Definition corrected and edited by Georg Fischer, Jun 06 2021

cp's OEIS Frontend

A212336 Expansion of 1/(1 - 23*x + 23*x^2 - x^3).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Magma

Maple

Mathematica

Maxima

PARI

Sage

Formula

A097826 Partial sums of Chebyshev sequence S(n,11) = U(n,11/2) = A004190(n).

Views

Author

Keywords

Links

Crossrefs

Programs

GAP

Magma

Mathematica

PARI

Sage

Formula

A264236 Number of vertices at level n of the hyperbolic Pascal pyramid.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A095004 a(n) = 9*a(n-1) - 9*a(n-2) + a(n-3); given a(1) = 1, a(2) = 10, a(3) = 81.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A095002 a(n) = 9*a(n-1) - 9*a(n-2) + a(n-3); given a(1) = 1, a(2) = 3, a(3) = 19.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A077784 Numbers k such that (10^k - 1)/3 + 2*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Formula

A212336 Expansion of 1/(1 - 23x + 23x^2 - x^3).

A095004 a(n) = 9a(n-1) - 9a(n-2) + a(n-3); given a(1) = 1, a(2) = 10, a(3) = 81.

A095002 a(n) = 9a(n-1) - 9a(n-2) + a(n-3); given a(1) = 1, a(2) = 3, a(3) = 19.

A077828 Expansion of 1/(1-3x-3x^2-3*x^3).

A077829 Expansion of 1/(1-3x-3x^2-2*x^3).

A077831 Expansion of 1/(1-3x-2x^2-2*x^3).

A095003 a(n) = 9a(n-1) - 9a(n-2) + a(n-3).