|
|
A051720
|
|
Numerators of column 3 of table described in A051714/A051715.
|
|
5
|
|
|
1, 1, 2, 2, -1, -4, -1, 8, 7, -44, -2663, 368, 1247, -244, -1511, 43416, 1623817, -276356, -10405289, -21376, 21491081, 32209348, -2523785339, -107638072, 1827648887, 842271812, -11254630547, -17380760743952, 596303510772251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = numerator(n! * [x^n] f(x)) where f(x) =(x*exp(4*x))/(1-exp(x))^4+13/(3*(1-exp(x)))-7/(2*(1-exp(x))^2)+1/(1-exp(x))^3-13/12. - Vladimir Kruchinin, Nov 03 2015
|
|
MATHEMATICA
|
a[0, k_] := 1/(k+1); a[n_, k_] := a[n, k] = (k+1)*(a[n-1, k] - a[n-1, k+1]); a[n_] := a[n, 3] // Numerator; Table[a[n], {n, 0, 28}] (* Jean-François Alcover, Sep 17 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|