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.

A137449 A triangular sequence based on concepts of operations on existing sequences: in this case the H(x,n) ( A060821) traditional Hermite is differentiated twice : p(x,n)=-x^2*H''(x,n)+H(x,n).

This page as a plain text file.
%I A137449 #4 Oct 13 2012 14:19:34
%S A137449 1,1,1,-2,0,-4,0,-12,0,-40,12,0,48,0,-176,0,120,0,800,0,-608,-120,0,
%T A137449 -720,0,5280,0,-1856,0,-1680,0,-16800,0,25536,0,-5248,1680,0,13440,0,
%U A137449 -147840,0,103936,0,-14080,0,30240,0,403200,0,-919296,0,377856,0,-36352,-30240,0,-302400,0,4435200,0,-4677120,0
%N A137449 A triangular sequence based on concepts of operations on existing sequences: in this case the H(x,n) ( A060821) traditional Hermite is differentiated twice : p(x,n)=-x^2*H''(x,n)+H(x,n).
%C A137449 Row sums are:
%C A137449 {1, 2, -6, -52, -116, 312, 2584, 1808, -42864, -144352, 601504};
%C A137449 As an operator algebra like an Energy Hamiltonian:
%C A137449 e(n)*H(x,n)=p(x,n)/x^2
%C A137449 The relative energy of the row sums goes up much faster than in the Chebyshev
%C A137449 of the first kind.
%F A137449 p(x,n)=-x^2*H''(x,n)+H(x,n)
%e A137449 {1},
%e A137449 {1, 1},
%e A137449 {-2, 0, -4},
%e A137449 {0, -12, 0, -40},
%e A137449 {12, 0, 48, 0, -176},
%e A137449 {0, 120,0, 800, 0, -608},
%e A137449 {-120, 0, -720, 0, 5280, 0, -1856},
%e A137449 {0, -1680, 0, -16800, 0, 25536, 0, -5248},
%e A137449 {1680, 0, 13440, 0, -147840, 0, 103936, 0, -14080},
%e A137449 {0, 30240, 0, 403200, 0, -919296, 0, 377856, 0, -36352},
%e A137449 {-30240, 0, -302400, 0, 4435200, 0, -4677120,0, 1267200, 0, -91136}
%t A137449 Clear[p, x, a] p[x, 0] = 1; p[x, 1] = x + 1; p[x_, n_] := p[x, n] = -x^2*D[HermiteH[n, x], {x, 2}] + HermiteH[n, x]; Table[Expand[p[x, n]], {n, 0, 10}]; a = Table[CoefficientList[p[x, n], x], {n, 0, 10}]; Flatten[a]
%K A137449 tabl,uned,sign
%O A137449 1,4
%A A137449 _Roger L. Bagula_ and _Gary W. Adamson_, Apr 18 2008