|
|
A360091
|
|
Numerator of (n-2)!*Sum_{k=1..n} (-1)^(k+1)/((n-k)!*k^k).
|
|
2
|
|
|
3, 31, 517, 322537, 2840123, 324200318207, 1285595921612117, 73566451396634047493, 44670351166870486810889, 1129160781485410557635298647751929, 1103929347366548607910442339939699, 25219262227183500148649140605496240723288052699
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Array[Numerator[(# - 2)!*Sum[(-1)^(k + 1)/((# - k)!*k^k), {k, #}]] &, 13, 2] (* Michael De Vlieger, Jan 25 2023 *)
|
|
PROG
|
(PARI) a(n) = numerator((n-2)!*sum(k=1, n, (-1)^(k+1)/((n-k)!*k^k)));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|