

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

Seiichi Manyama, Table of n, a(n) for n = 0..626
M. Kaneko, The AkiyamaTanigawa algorithm for Bernoulli numbers, J. Integer Sequences, 3 (2000), #00.2.9.


FORMULA

a(n) = numerator(n! * [x^n] f(x)) where f(x) =(x*exp(4*x))/(1exp(x))^4+13/(3*(1exp(x)))7/(2*(1exp(x))^2)+1/(1exp(x))^313/12.  Vladimir Kruchinin, Nov 03 2015


MATHEMATICA

a[0, k_] := 1/(k+1); a[n_, k_] := a[n, k] = (k+1)*(a[n1, k]  a[n1, k+1]); a[n_] := a[n, 3] // Numerator; Table[a[n], {n, 0, 28}] (* JeanFrançois Alcover, Sep 17 2012 *)


CROSSREFS

Cf. A051721.
Sequence in context: A263232 A134666 A129712 * A022693 A174498 A146478
Adjacent sequences: A051717 A051718 A051719 * A051721 A051722 A051723


KEYWORD

sign,easy,nice


AUTHOR

N. J. A. Sloane


EXTENSIONS

More terms from James A. Sellers, Dec 08 1999


STATUS

approved



