login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073768 Triangle of coefficients of Bateman polynomial n!Z_n(-x). 1
1, 1, 2, 2, 12, 6, 6, 72, 90, 20, 24, 480, 1080, 560, 70, 120, 3600, 12600, 11200, 3150, 252, 720, 30240, 151200, 201600, 94500, 16632, 924, 5040, 282240, 1905120, 3528000, 2425500, 698544, 84084, 3432, 40320, 2903040, 25401600, 62092800, 58212000, 24216192, 4708704, 411840, 12870 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..44.

EXAMPLE

{1};

{1, 2};

{2, 12, 6};

{6, 72, 90, 20};

{24, 480, 1080, 560, 70}; ...

2!Z_2(-x) = 2+12x+6x^2.

MAPLE

A073768_row := proc(n) n!*hypergeom([-n, n+1], [1, 1], -x);

PolynomialTools:-CoefficientList(simplify(%), x) end:

seq(A073768_row(n), n=0..8): ListTools[FlattenOnce]([%]); # Peter Luschny, Jan 31 2016

MATHEMATICA

T[n_, k_] := n! (n+k)! / (n-k)! / k!^3;

Table[T[n, k], {n, 0, 8}, {k, 0, n}] // Flatten (* Jean-Fran├žois Alcover, Jun 04 2019 *)

PROG

(PARI) {T(n, k) = if( k<0 || k>n, 0, n! * (n+k)! / (n-k)! / k!^3)}

CROSSREFS

A073767 gives row sums.

Sequence in context: A279179 A279470 A013605 * A278534 A096855 A256120

Adjacent sequences:  A073765 A073766 A073767 * A073769 A073770 A073771

KEYWORD

nonn,tabl

AUTHOR

Michael Somos, Aug 08 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 10 01:41 EDT 2020. Contains 336363 sequences. (Running on oeis4.)