|
| |
|
|
A109780
|
|
n! sum{k=1 to n} H(k) (n-k)!, where H(k) = sum{j=1 to k} 1/j.
|
|
1
| |
|
|
1, 5, 32, 310, 4924, 126648, 4869192, 258608880, 17973530784, 1576566817920, 170028329630400, 22092970356011520, 3402396234446595840, 612619882946124157440, 127484451712085785228800, 30358069092698014483200000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| E.g.f.: hypergeom([1, 1], [], x)*ln(1-x)/(x-1). - Vladeta Jovovic (vladeta(AT)eunet.rs), Aug 16 2005
|
|
|
MATHEMATICA
| f[n_] := n! * Sum[(n-k)! * Sum[1/j, {j, 1, k}], {k, 1, n}]; Table[f[n], {n, 1, 30}] (Propper)
|
|
|
CROSSREFS
| Sequence in context: A023880 A104031 A023882 * A093448 A094653 A135250
Adjacent sequences: A109777 A109778 A109779 * A109781 A109782 A109783
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Aug 13 2005
|
|
|
EXTENSIONS
| More terms from Ryan Propper (rpropper(AT)stanford.edu), Aug 18 2005
|
| |
|
|
