%I #19 Jan 07 2023 04:35:06
%S 1,2,4,12,48,160,720,3360,13440,80640,403200,2217600,13305600,
%T 69189120,484323840,2905943040,19372953600,131736084480,846874828800,
%U 6436248698880,42908324659200,337903056691200,2477955749068800,18997660742860800,151981285942886400
%N Maximal coefficient (ignoring signs) in Hermite polynomial of order n.
%H Vaclav Kotesovec, <a href="/A277281/b277281.txt">Table of n, a(n) for n = 0..715</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HermitePolynomial.html">Hermite Polynomial</a>.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Hermite_polynomials">Hermite polynomials</a>.
%e For n = 5, H_5(x) = 32*x^5 - 160*x^3 + 120*x. The maximal coefficient (ignoring signs) is 160, so a(5) = 160.
%t Table[Max@Abs@CoefficientList[HermiteH[n, x], x], {n, 0, 25}]
%o (PARI) a(n) = vecmax(apply(x->abs(x), Vec(polhermite(n)))); \\ _Michel Marcus_, Oct 09 2016
%o (Python)
%o from sympy import hermite, Poly
%o def a(n): return max(map(abs, Poly(hermite(n, x), x).coeffs())) # _Indranil Ghosh_, May 26 2017
%Y Cf. A059343, A277280 (with signs).
%K nonn
%O 0,2
%A _Vladimir Reshetnikov_, Oct 08 2016
|