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.

A135936 Irregular triangle read by rows: row n gives coefficients of Boubaker polynomial B_n(x) in order of decreasing exponents (another version).

This page as a plain text file.
%I A135936 #26 Mar 11 2023 04:52:24
%S A135936 1,1,1,2,1,1,1,0,-2,1,-1,-3,1,-2,-3,2,1,-3,-2,5,1,-4,0,8,-2,1,-5,3,10,
%T A135936 -7,1,-6,7,10,-15,2,1,-7,12,7,-25,9,1,-8,18,0,-35,24,-2,1,-9,25,-12,
%U A135936 -42,49,-11,1,-10,33,-30,-42,84,-35,2,1,-11,42,-55,-30,126,-84,13,1,-12,52,-88,0,168,-168,48,-2,1,-13,63,-130,55,198,-294
%N A135936 Irregular triangle read by rows: row n gives coefficients of Boubaker polynomial B_n(x) in order of decreasing exponents (another version).
%C A135936 See A135929 and A138034 for further information.
%H A135936 R. J. Mathar, Mar 11 2008, <a href="/A135936/b135936.txt">Table of n, a(n) for n = 0..160</a>
%F A135936 Conjectures from _Thomas Baruchel_, Jun 03 2018: (Start)
%F A135936 T(n,m) = 4*A115139(n+1,m) - 3*A132460(n,m).
%F A135936 T(n,m) = (-1)^m * (binomial(n-m, m) - 3*binomial(n-m-1, m-1)). (End)
%e A135936 The Boubaker polynomials B_0(x), B_1(x), B_2(x), ... are:
%e A135936   1
%e A135936   x
%e A135936   x^2    + 2
%e A135936   x^3    + x
%e A135936   x^4             - 2
%e A135936   x^5    - x^3  - 3*x
%e A135936   x^6  - 2*x^4  - 3*x^2    + 2
%e A135936   x^7  - 3*x^5  - 2*x^3  + 5*x
%e A135936   x^8  - 4*x^6           + 8*x^2    - 2
%e A135936   x^9  - 5*x^7  + 3*x^5 + 10*x^3  - 7*x
%e A135936   ...
%p A135936 A135936 := proc(n,m) coeftayl( coeftayl( (1+3*t^2)/(1-x*t+t^2),t=0,n), x=0,m) ; end: for n from 0 to 25 do for m from n to 0 by -2 do printf("%d, ",A135936(n,m)) ; od; od; # _R. J. Mathar_, Mar 11 2008
%t A135936 T[n_, m_] := SeriesCoefficient[SeriesCoefficient[
%t A135936    (1+3*t^2)/(1-x*t+t^2), {t, 0, n}], {x, 0, m}];
%t A135936 Table[T[n, m], {n, 0, 25}, {m, n, 0, -2}] // Flatten (* _Jean-François Alcover_, Mar 11 2023, after _R. J. Mathar_ *)
%Y A135936 Cf. A138034.
%K A135936 sign,tabf
%O A135936 0,4
%A A135936 _N. J. A. Sloane_, Mar 09 2008
%E A135936 More terms from _R. J. Mathar_, Mar 11 2008