The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A001286 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A001286

Lah numbers: a(n) = (n-1)*n!/2.
(history; published version)

#172 by Alois P. Heinz at Wed Nov 22 15:33:14 EST 2023

STATUS

editing

approved

#171 by Alois P. Heinz at Wed Nov 22 15:32:13 EST 2023

MATHEMATICA

lst={}; s=0; Do[s=s+n; AppendTo[lst, n!*s], {n, 30}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 07 2008 *)

#170 by Alois P. Heinz at Wed Nov 22 15:30:26 EST 2023

MAPLE

G(x):=x^2/(1-x)^2: f[0]:=G(x): for n from 1 to 20 do f[n]:=diff(f[n-1], x) od: x:=0: seq(f[n]/2, n=2..20); # Zerinvary Lajos, Apr 01 2009

#169 by Alois P. Heinz at Wed Nov 22 15:28:13 EST 2023

MAPLE

with(combinat):seq(n/2*numbperm(n+1, n), n=1..19); # Zerinvary Lajos, Apr 17 2009

#168 by Alois P. Heinz at Wed Nov 22 15:27:16 EST 2023

MAPLE

a:=n->sum(k*mul(k, k=1..n), k=1..n):seq(a(n), n=1...19); # Zerinvary Lajos, Jun 11 2008

#167 by Alois P. Heinz at Wed Nov 22 15:24:21 EST 2023

MAPLE

a:=n->sum(j*n!, j=0..n): seq(a(n), n=0..19); # Zerinvary Lajos, Dec 01 2006

STATUS

approved

editing

Discussion

Wed Nov 22

15:26

Alois P. Heinz: some of the programs are incorrect (wrong offset), other programs are inefficient or bad style ... and we do not need 5 Maple programs from the same contributor ...

#166 by Alois P. Heinz at Tue Nov 21 20:48:28 EST 2023

STATUS

editing

approved

#165 by Alois P. Heinz at Tue Nov 21 20:48:24 EST 2023

PROG

-- _Reinhard Zumkeler_, Zumkeller_, Aug 01 2011

STATUS

approved

editing

#164 by Alois P. Heinz at Tue Nov 21 19:17:41 EST 2023

STATUS

editing

approved

#163 by Alois P. Heinz at Tue Nov 21 19:17:36 EST 2023

DATA

1, 6, 36, 240, 1800, 15120, 141120, 1451520, 16329600, 199584000, 2634508800, 37362124800, 566658892800, 9153720576000, 156920924160000, 2845499424768000, 54420176498688000, 1094805903679488000, 23112569077678080000, 510909421717094400000

STATUS

approved

editing