|
| |
|
|
A028417
|
|
Sum over all n! permutations of n elements of minimum lengths of cycles.
|
|
7
|
|
|
|
1, 3, 10, 45, 236, 1505, 10914, 90601, 837304, 8610129, 96625970, 1184891081, 15665288484, 223149696601, 3394965018886, 55123430466945, 948479737691504, 17289345305870561, 332019600921360594, 6713316975465246889
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..20.
|
|
|
FORMULA
|
E.g.f.: Sum[k>0, -1+ exp(Sum(j>=k, x^j/j))]. - Vladeta Jovovic, Jul 26 2004
|
|
|
MATHEMATICA
|
Drop[Apply[Plus, Table[nn=25; Range[0, nn]!CoefficientList[Series[Exp[Sum[x^i/i, {i, n, nn}]]-1, {x, 0, nn}], x], {n, 1, nn}]], 1] (* Geoffrey Critzer, Jan 10 2013 *)
|
|
|
CROSSREFS
|
Cf. A028418, A046746, A006128.
Cf. A005225.
Sequence in context: A096752 A211193 A134018 * A060311 A184947 A207652
Adjacent sequences: A028414 A028415 A028416 * A028418 A028419 A028420
|
|
|
KEYWORD
|
nonn,changed
|
|
|
AUTHOR
|
Joe Keane (jgk(AT)jgk.org)
|
|
|
EXTENSIONS
|
More terms from Vladeta Jovovic, Sep 19 2002
|
|
|
STATUS
|
approved
|
| |
|
|
