Original entry on oeis.org
1, 3, 31, 617, 18529, 748859, 38149567, 2348482961, 169641143873, 14071599763379, 1318414335714015, 137720427724123513, 15871136311527376801, 2000355821099358166891, 273735526097742996298111, 40419227378551955037029921, 6405616571975691389276400257
Offset: 0
-
A370259 := n -> simplify( (ChebyshevT(n, n+1) - 1)/n^3 ):
seq(sqrt(A370259(2*n+1)), n = 0..20);
-
Table[Sqrt[(ChebyshevT[k, k + 1] - 1)/k^3], {k, 1, 40, 2}] (* Paolo Xausa, Jul 24 2024 *)
A142994
Crystal ball sequence for the lattice C_5.
Original entry on oeis.org
1, 51, 501, 2471, 8361, 22363, 50973, 103503, 192593, 334723, 550725, 866295, 1312505, 1926315, 2751085, 3837087, 5242017, 7031507, 9279637, 12069447, 15493449, 19654139, 24664509, 30648559, 37741809, 46091811, 55858661, 67215511, 80349081
Offset: 0
a(1) = 51. The origin has norm 0. The 50 lattice points in Z^5 of norm 1 (as defined above) are +-2*e_i, 1 <= i <= 5 and (+- e_i +- e_j), 1 <= i < j <= 5, where e_1, ... , e_5 denotes the standard basis of Z^5. These 50 vectors form a root system of type C_5. Hence the sequence begins 1, 1 + 50 = 51, ... .
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
- R. Bacher, P. de la Harpe, and B. Venkov, Séries de croissance et séries d'Ehrhart associées aux réseaux de racines, Annales de l'Institut Fourier, Tome 49 (1999) no. 3, pp. 727-762.
- R. Bacher, P. de la Harpe and B. Venkov, Séries de croissance et séries d'Ehrhart associées aux réseaux de racines, C. R. Acad. Sci. Paris, 325 (Series 1) (1997), 1137-1142.
- Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).
-
[(2*n+1)*(32*n^4+64*n^3+88*n^2+56*n+15)/15: n in [0..30]]; // Vincenzo Librandi, Dec 16 2015
-
a := n -> (2*n+1)*(32*n^4+64*n^3+88*n^2+56*n+15)/15: seq(a(n), n = 0..20)
-
CoefficientList[Series[(1 + 45 x + 210 x^2 + 210 x^3 + 45 x^4 + x^5)/(1 - x)^6, {x, 0, 33}], x] (* or *) LinearRecurrence[{6, -15, 20, -15, 6, -1},{1, 51, 501, 2471, 8361, 22363}, 25] (* Vincenzo Librandi, Dec 16 2015 *)
-
A142994_list, m = [], [512, -768, 352, -48, 2, 1]
for _ in range(10**2):
A142994_list.append(m[-1])
for i in range(5):
m[i+1] += m[i] # Chai Wah Wu, Dec 15 2015
A370261
a(n) = sqrt(A370259(2*n)/(n+1)) for n >= 1.
Original entry on oeis.org
1, 5, 65, 1449, 46561, 1968525, 103565057, 6531391313, 480749649601, 40482981221781, 3840053099665729, 405275779792031225, 47113209228513626017, 5982545638922153790749, 823992221632687352744961, 122360935410018418223907489, 19489013519781051891806113153
Offset: 1
-
A370259 := n -> simplify( (ChebyshevT(n, n+1) - 1)/n^3 ):
seq(sqrt(A370259(2*n)/(n+1)), n = 1..20);
-
Table[Sqrt[(ChebyshevT[2*n, 2*n + 1] - 1)/(2*n)^3/(n + 1)], {n, 20}] (* Paolo Xausa, Jul 24 2024 *)
-
from math import isqrt
from sympy import chebyshevt
def A370261(n): return isqrt((chebyshevt((m:=n<<1),m+1)-1)//((n+1)*m**3)) # Chai Wah Wu, Mar 13 2024
A081265
Triangle of coefficients of the polynomials a(n, x) = 2*a(n-1, x)+ x^2*a(n-2,x), n >= 1, a(0, x) = 1, a(1, x) = 1.
Original entry on oeis.org
1, 1, 0, 2, 0, 1, 4, 0, 3, 0, 8, 0, 8, 0, 1, 16, 0, 20, 0, 5, 0, 32, 0, 48, 0, 18, 0, 1, 64, 0, 112, 0, 56, 0, 7, 0, 128, 0, 256, 0, 160, 0, 32, 0, 1, 256, 0, 576, 0, 432, 0, 120, 0, 9, 0, 512, 0, 1280, 0, 1120, 0, 400, 0, 50, 0, 1, 1024, 0, 2816, 0, 2816, 0, 1232, 0, 220
Offset: 0
Triangle rows are {1}, {1,0}, {2,0,1}, {4,0,3,0}, {8,0,8,0,1},.... [Corrected by _Philippe Deléham_, Dec 27 2007]
See the unsigned example under A039991. - _Wolfdieter Lang_, Aug 06 2014
Edited. Name and formula clarified. G.f. of row polynomial, and crossref.
A039991 added. -
Wolfdieter Lang, Aug 06 2014
A152060
Triangle read by rows, characteristic polynomials of Cartan ring matrices.
Original entry on oeis.org
1, 1, -2, 1, -4, 3, 1, -6, 9, -4, 1, -8, 20, -16, 4, 1, -10, 35, -50, 25, -4, 1, -12, 54, -112, 105, -36, 4, 1, -14, 77, -210, 294, -196, 49, -4, 1, -16, 104, -352, 660, -672, 336, -64, 4, 1, -18, 135, -546, 1287, -1782, 1386, -540, 81, -4, 1, -20, 170, -800, 2275, -4004, 4290, -2640, 825, -100, 4
Offset: 0
Triangle begins:
1;
1, -2;
1, -4, 3;
1, -6, 9, -4;
1, -8, 20, -16, 4;
1, -10, 35, -50, 25, -4;
1, -12, 54, -112, 105, -36, 4;
1, -14, 77, -210, 294, -196, 49, -4;
1, -16, 104, -352, 660, -672, 336, -64, 4;
1, -18, 135, -546, 1287, -1782, 1386, -540, 81, -4;
1, -20, 170, -800, 2275, -4004, 4290, -2640, 825, -100, 4;
...
Example: x^5 -10x^4 + 35x^3 -50x^2 + 25x - 4 = (x - 4) * (x^2 - 3x + 1)^2 is the characteristic polynomial of the matrix
[ 2,-1, 0, 0, 1]
[-1, 2,-1, 0, 0]
[ 0,-1, 2,-1, 0]
[ 0, 0,-1, 2,-1]
[ 1, 0, 0,-1, 2].
- William G. Harter, University of Arkansas; personal communication
-
M[n_] := SparseArray[{Band[{1, 1}] -> 2, Band[{1, 2}] -> -1, Band[{2, 1}] -> -1, {1, n} -> 1, {n, 1} -> 1}, {n, n}];
row[0] = {1}; row[1] = {1, -2};
row[n_] := (-1)^n CharacteristicPolynomial[M[n], x] // CoefficientList[#, x]& // Reverse;
Table[row[n], {n, 0, 10}] // Flatten (* Jean-François Alcover, Aug 08 2018 *)
A175243
Array read by antidiagonals: total number of spanning trees R_n(m) of the complete prism K_m X C_n.
Original entry on oeis.org
1, 2, 1, 3, 12, 3, 4, 75, 294, 16, 5, 384, 11664, 16384, 125, 6, 1805, 367500, 5647152, 1640250, 1296, 7, 8100, 10609215, 1528823808, 6291456000, 259200000, 16807, 8, 35287, 292626432, 380008339280, 18911429680500, 13556617751088, 59549251454
Offset: 1
The array starts in row n=1 as:
1, 1, 3, 16, 125
2, 12, 294, 16384, 1640250
3, 75, 11664, 5647152, 6291456000
4, 384, 367500, 1528823808,
5, 1805, 10609215,
-
A175243 := proc(n,m) n*2^(m-1)/m*( orthopoly[T](n,1+m/2)-1)^(m-1) ; end proc:
for d from 2 to 10 do for m from 1 to d-1 do n := d-m ; printf("%d,",A175243(n,m)) ; end do: end do:
-
r[n_, m_] := n*2^(m-1)*(ChebyshevT[n, 1+m/2]-1)^(m-1)/m; Table[r[n-m, m], {n, 2, 9}, {m, 1, n-1}] // Flatten (* Jean-François Alcover, Jan 10 2014 *)
A305549
Crystal ball sequence for the lattice C_6.
Original entry on oeis.org
1, 73, 985, 6321, 26577, 85305, 227305, 528865, 1110049, 2149033, 3898489, 6704017, 11024625, 17455257, 26751369, 39855553, 57926209, 82368265, 114865945, 157417585, 212372497, 282469881, 370879785, 481246113, 617731681, 785065321, 988591033, 1234319185
Offset: 0
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
- R. Bacher, P. de la Harpe, and B. Venkov, Séries de croissance et séries d'Ehrhart associées aux réseaux de racines, Annales de l'Institut Fourier, Tome 49 (1999) no. 3 , p. 727-762.
- Index entries for linear recurrences with constant coefficients, signature (7,-21,35,-35,21,-7,1).
-
{a(n) = sum(k=0, 6, binomial(12,2*k)*binomial(n+k,6))}
-
Vec((1 + 6*x + x^2)*(1 + 60*x + 134*x^2 + 60*x^3 + x^4) / (1 - x)^7 + O(x^40)) \\ Colin Barker, Jun 09 2018
A305721
Crystal ball sequence for the lattice C_7.
Original entry on oeis.org
1, 99, 1765, 14407, 74313, 284075, 880685, 2340495, 5529233, 11905267, 23784309, 44673751, 79684825, 136030779, 223619261, 355747103, 549905697, 828705155, 1220925445, 1762702695, 2498858857, 3484382923, 4786071885, 6484339631, 8675201969, 11472445971, 15009991829
Offset: 0
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
- R. Bacher, P. de la Harpe and B. Venkov, Séries de croissance et séries d'Ehrhart associées aux réseaux de racines, Annales de l'Institut Fourier, Tome 49 (1999) no. 3, pp. 727-762.
- Index entries for linear recurrences with constant coefficients, signature (8,-28,56,-70,56,-28,8,-1).
-
b:=7;; List([0..30],n->Sum([0..b],k->Binomial(2*b,2*k)*Binomial(n+k,b))); # Muniru A Asiru, Jun 09 2018
-
Array[Sum[Binomial[14, 2 k] Binomial[# + k, 7], {k, 0, 7}] &, 27, 0] (* Michael De Vlieger, Jun 11 2018 *)
LinearRecurrence[{8,-28,56,-70,56,-28,8,-1},{1,99,1765,14407,74313,284075,880685,2340495},30] (* Harvey P. Dale, May 16 2023 *)
-
{a(n) = sum(k=0, 7, binomial(14, 2*k)*binomial(n+k, 7))}
-
Vec((1 + x)*(1 + 90*x + 911*x^2 + 2092*x^3 + 911*x^4 + 90*x^5 + x^6) / (1 - x)^8 + O(x^40)) \\ Colin Barker, Jun 09 2018
A370262
Triangle read by rows: T(n, k) = binomial(n+k, n-k)/(2*k + 1) * (2*n + 1)^k.
Original entry on oeis.org
1, 1, 1, 1, 5, 5, 1, 14, 49, 49, 1, 30, 243, 729, 729, 1, 55, 847, 5324, 14641, 14641, 1, 91, 2366, 26364, 142805, 371293, 371293, 1, 140, 5670, 101250, 928125, 4556250, 11390625, 11390625, 1, 204, 12138, 324258, 4593655, 36916282, 168962983, 410338673, 410338673
Offset: 0
Triangle begins
n\k | 0 1 2 3 4 5 6
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
0 | 1
1 | 1 1
2 | 1 5 5
3 | 1 14 49 49
4 | 1 30 243 729 729
5 | 1 55 847 5324 14641 14641
6 | 1 91 2366 26364 142805 371293 371293
...
-
seq(seq(binomial(n+k, n-k)/(2*k + 1) * (2*n + 1)^k, k = 0..n), n = 0..10);
-
Table[Binomial[n + k, n - k] / (2*k + 1) * (2*n + 1)^k, {n, 0, 10}, {k, 0, n}] (* Paolo Xausa, Apr 17 2024 *)
A136388
Triangle read by rows of coefficients of Chebyshev-like polynomials P_{n,2}(x) with 0 omitted (exponents in increasing order).
Original entry on oeis.org
1, -2, 2, 1, -5, 4, 4, -12, 8, -1, 13, -28, 16, -6, 38, -64, 32, 1, -25, 104, -144, 64, 8, -88, 272, -320, 128, -1, 41, -280, 688, -704, 256, -10, 170, -832, 1696, -1536, 512, 1, -61, 620, -2352, 4096, -3328, 1024, 12, -292, 2072, -6400, 9728, -7168, 2048
Offset: 2
Rows are (1),(-2,2),(1,-5,4),(4,-12,8),(-1,13,-28,16),...
since P_{2,2}=x^2, P_{3,2}=-2x+2x^3, P_{4,2}=1-5x^2+4x^4,...
-
if modp(n-k, 2)=0 then a[n,k]:=(-1)^((n-k)/2)*sum((-1)^i*binomial((n+k)/2-2, i)*binomial(n+k-2-2*i, n-2), i=0..(n+k)/2-2); end if;
-
Rest@ Flatten@ Table[If[SameQ @@ Mod[{n, k}, 2], (-1)^((n - k)/2)*Sum[(-1)^i*Binomial[(n + k)/2 - 2, i]*Binomial[n + k - 2 - 2 i, n - 2], {i, 0, (n + k)/2 - 2}], 0], {n, 2, 13}, {k, Boole@ OddQ@ n, n, 2}] (* Michael De Vlieger, Jul 02 2019 *)
Comments