A062119 a(n) = n! * (n-1).
0, 2, 12, 72, 480, 3600, 30240, 282240, 2903040, 32659200, 399168000, 5269017600, 74724249600, 1133317785600, 18307441152000, 313841848320000, 5690998849536000, 108840352997376000, 2189611807358976000, 46225138155356160000, 1021818843434188800000
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..100
- Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets
- Ugbene Ifeanyichukwu Jeff, Ogundele Olaniyi Suraju, and Ndubuisi Rich Ugochukwu, Digraph of the full transformation semigroup, J. Disc. Math. Sci. Crypt. (2021).
- Luis Manuel Rivera, Integer sequences and k-commuting permutations, arXiv preprint arXiv:1406.3081 [math.CO], 2014-2015.
- S. R. Schmitt Determinants [From _Mats Granvik_, Sep 12 2008]
- Index entries for sequences related to factorial base representation
Crossrefs
Cf. A001286 (same sequence divided by 2).
Cf. A001563. - Zerinvary Lajos, Aug 27 2008
Cf. sequences with formula (n + k)*n! listed in A282466.
Programs
-
Haskell
a062119 n = (n - 1) * a000142 n -- Reinhard Zumkeller, Aug 27 2012
-
Maple
G(x):=x^2/(1-x)^2: f[0]:=G(x): for n from 1 to 19 do f[n]:=diff(f[n-1],x) od: x:=0: seq(f[n],n=1..19); # Zerinvary Lajos, Apr 01 2009
-
Mathematica
a[n_]:=1*(n+2)!-2*(n+1)!; (* or *) a[n_]:=n!*(n-1); (* Vladimir Joseph Stephan Orlovsky, Dec 05 2008 *) Table[n!(n-1),{n,20}] (* Harvey P. Dale, Aug 29 2021 *)
-
PARI
{ f=1; for (n=1, 100, f*=n; write("b062119.txt", n, " ", f*(n - 1)) ) } \\ Harry J. Smith, Aug 02 2009
-
PARI
a(n) = n!*(n-1); \\ Altug Alkan, May 04 2018
-
Scheme
(define (A062119 n) (* (- n 1) (A000142 n))) ;; Antti Karttunen, May 07 2015
Formula
a(n) = n! * (n-1).
E.g.f.: x^2/(1-x)^2. - Geoffrey Critzer, Feb 21 2010
a(n) = 2 * A001286(n).
From Amiram Eldar, Jul 11 2020: (Start)
Extensions
Last term a(19) corrected by Harry J. Smith, Aug 02 2009
Comments