A124078 a(n) = H(n)*n!/(floor(n/2))!, where H(n) = Sum_{k=1..n} 1/k, the n-th harmonic number.

0, 1, 3, 11, 25, 137, 294, 2178, 4566, 42774, 88572, 1004532, 2064504, 27503832, 56243184, 860945040, 1754322480, 30342400560, 61664980320, 1189277851680, 2412077832000, 51324077044800, 103928089910400, 2418504655996800

Offset

0,3

Links

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

Mathematica

a[n_] := HarmonicNumber[n]n!/Floor[n/2]!; Table[a@n, {n, 0, 23}] (* Robert G. Wilson v, Nov 26 2006 *)

Crossrefs

Cf. A123989, A124079.

Sequence in context: A231606 A096617 A025529 * A096795 A362176 A160039

Adjacent sequences: A124075 A124076 A124077 * A124079 A124080 A124081

Keyword

easy,nonn

Author

Leroy Quet, Nov 24 2006

Extensions

More terms from Robert G. Wilson v, Nov 26 2006

Status

approved