Revision History for A028471
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
| |
| |
| |
|
|
#34 by Ray Chandler at Sun Mar 03 10:14:32 EST 2024
| |
| |
| |
|
|
#33 by Ray Chandler at Sun Mar 03 10:14:29 EST 2024
|
|
| LINKS
|
<a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (209, -11936, 274208, -3112032, 19456019, -70651107, 152325888, -196664896, 152325888, -70651107, 19456019, -3112032, 274208, -11936, 209, -1).
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#32 by Joerg Arndt at Sat May 28 03:28:23 EDT 2022
| |
| |
| |
|
|
#31 by Michel Marcus at Sat May 28 02:18:15 EDT 2022
| |
| |
| |
|
|
#30 by Jean-François Alcover at Sat May 28 01:52:03 EDT 2022
| |
| |
| |
|
|
#29 by Jean-François Alcover at Sat May 28 01:51:57 EDT 2022
|
|
| MATHEMATICA
|
T[_?OddQ, _?OddQ] = 0;
T[m_, n_] := Product[2(2+Cos[2 j Pi/(m+1)]+Cos[2 k Pi/(n+1)]), {k, 1, n/2}, {j, 1, m/2}];
a[n_] := T[2n, 9] // Round;
Table[a[n], {n, 0, 20}] (* Jean-François Alcover, May 28 2022 *)
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#28 by Susanna Cuyler at Mon Apr 13 19:50:36 EDT 2020
| |
| |
| |
|
|
#27 by Seiichi Manyama at Mon Apr 13 14:04:42 EDT 2020
| |
| |
| |
|
|
#26 by Seiichi Manyama at Mon Apr 13 13:05:33 EDT 2020
|
|
| PROG
|
(PARI) {a(n) = sqrtint((-1)^n*(polresultant(polchebyshev(2*n, 2, x/2), sum(k=0, 4, binomialpolchebyshev(9-k, 2, k)*I*x^(9-/2*k))))} \\ _)))} \\ _Seiichi Manyama_, Apr 13 2020
|
| |
| |
|
|
#25 by Seiichi Manyama at Mon Apr 13 12:05:45 EDT 2020
|
|
| PROG
|
(PARI) {a(n) = sqrtint((-1)^n*polresultant(polchebyshev(2*n, 2, x/2), sum(k=0, 4, binomial(9-k, k)*x^(9-2*k))))} \\ Seiichi Manyama, Apr 13 2020
|
| |
| |
|
|
