|
|
A092043
|
|
a(n) = numerator(n!/n^2).
|
|
7
|
|
|
1, 1, 2, 3, 24, 20, 720, 630, 4480, 36288, 3628800, 3326400, 479001600, 444787200, 5811886080, 81729648000, 20922789888000, 19760412672000, 6402373705728000, 6082255020441600, 115852476579840000, 2322315553259520000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Numerator of expansion of dilog(x) = Li_2(x) = -Integral_{t=0..x} (log(1-t)/t)*dt. See the Weisstein link.
E.g.f. of {a(n)/A014973(n)}_{n>=1} is Li_2(x) (with 0 for n=0).
|
|
LINKS
|
|
|
FORMULA
|
a(n) = numerator(n!/n^2) = numerator((n-1)!/n), n >= 1. See the name.
E.g.f. {a(n)/A014973(n)}_{n>=1} with 0 for n=0 is Li_2(x). See the comment.
(-1)^n*a(n+1)/A014973(n+1) = (-1)^n*n!/(n+1) = Sum_{k=0..n} Stirling1(n, k)*Bernoulli(k), with Stirling1 = A048994 and Bernoulli(k) = A027641(k)/A027642(k), n >= 0. From inverting the formula for B(k) in terms of Stirling2 = A048993.(End)
The expansion of (1+x)*exp(x) has coefficients A014973(n+1)/a(n+1), for n >= 0. (End)
|
|
MATHEMATICA
|
|
|
PROG
|
(PARI) a(n)=numerator(n!/n^2)
(PARI) a(n)=numerator(polcoeff(serlaplace(dilog(x)), n))
(Magma) [Numerator(Factorial(n)/n^2): n in [1..30]]; // Vincenzo Librandi, Apr 15 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|