A051719 Denominators of column 2 of table described in A051714/A051715.

3, 4, 20, 20, 140, 28, 140, 20, 220, 44, 20020, 1820, 1820, 4, 340, 340, 45220, 532, 29260, 220, 5060, 92, 41860, 1820, 1820, 4, 580, 580, 1384460, 9548, 811580, 340, 340, 4, 1279460, 1279460, 1279460, 4, 9020, 9020, 2715020, 1204, 138460, 460

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy
• nice

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..1000
• M. Kaneko, The Akiyama-Tanigawa algorithm for Bernoulli numbers, J. Integer Sequences, 3 (2000), #00.2.9.

Crossrefs

Cf. A051714, A051715, A051718.

Programs

Mathematica

nmax = 43; a[0, k_] := 1/(k + 1); a[n_, k_] := a[n, k] = (k + 1)*(a[n - 1, k] - a[n - 1, k + 1]); Table[a[n, k], {n, 0, nmax}, {k, 0, nmax}] [[All, 3]] // Denominator (* Jean-François Alcover, Oct 08 2012 *)

Extensions

More terms from James Sellers, Dec 08 1999