A020547 2nd Euler polynomial evaluated at x=n!.

0, 0, 2, 30, 552, 14280, 517680, 25396560, 1625662080, 131681531520, 13168185811200, 1593350882323200, 229442532323558400, 38775788037405619200, 7600054456464819148800, 1710012252722891749632000, 437763136697374129754112000

Offset

0,3

Links

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

Formula

a(n) = n!*(n!-1). - Mark van Hoeij, May 13 2013

a(n) = A000142(n)*A000142(n-1). - Michel Marcus, Apr 15 2015

Mathematica

Table[n! (n! - 1), {n, 0, 20}] (* Vincenzo Librandi, Apr 15 2015 *)

Prog

(PARI) vector(20, n, n--; (n!)^2-n!) \\ Michel Marcus, Apr 15 2015
(Magma) [Factorial(n)*(Factorial(n)-1): n in [0..30]]; // Vincenzo Librandi, Apr 15 2015

Crossrefs

Cf. A000142 (n!).

Sequence in context: A072976 A143414 A099046 * A208881 A297490 A324957

Adjacent sequences: A020544 A020545 A020546 * A020548 A020549 A020550

Keyword

nonn,easy

Author

Simon Plouffe

Status

approved