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.
%I A124025 #8 Aug 02 2023 11:44:22 %S A124025 1,3,-1,8,-6,1,21,-25,9,-1,55,-90,51,-12,1,144,-300,234,-86,15,-1,377, %T A124025 -954,951,-480,130,-18,1,987,-2939,3573,-2305,855,-183,21,-1,2584, %U A124025 -8850,12707,-10008,4740,-1386,245,-24,1,6765,-26195,43398,-40426,23373,-8715,2100,-316,27,-1,17711,-76500,143682 %N A124025 Duplicate of A123965. %D A124025 Joanne Dombrowski, Tridiagonal matrix representations of cyclic selfadjoint operators, Pacific J. Math. 114, no. 2 (1984), 325-334 %F A124025 Recursive polynomial from a tridiagonal matrix version of A123965 ( first number different): p(k, x) = ((x - b(k - 1))*p(k - 1, x) - a(k - 2)*p(k - 2, x))/a(n - 1); a(n)=-1;b(n)=3; %t A124025 b[k_] = 3; a[k_] = -1; p[0, x] = 1; p[1, x] = (x - b[1])/a[1]; p[k_, x_] := p[k, x] = ((x - b[k - 1])*p[k - 1, x] - a[k - 2]*p[k - 2, x])/a[k - 1]; w = Table[CoefficientList[p[n, x], x], {n, 0, 10}]; Flatten[w] %Y A124025 Cf. A101950, A104562, A123965. %K A124025 dead %O A124025 1,2 %A A124025 _Roger L. Bagula_, Oct 31 2006