A051721 Denominators of column 3 of table described in A051714/A051715.

4, 5, 15, 35, 105, 105, 105, 165, 165, 455, 15015, 1365, 1365, 255, 255, 11305, 33915, 21945, 21945, 345, 3795, 10465, 31395, 1365, 1365, 435, 435, 346115, 1038345, 55335, 608685, 255, 255, 319865, 959595, 959595, 959595, 6765, 6765, 61705

Offset

0,1

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.

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] // Denominator; Table[a[n], {n, 0, 39}] (* Jean-François Alcover, Sep 17 2012 *)

Crossrefs

Cf. A051720.

Sequence in context: A321174 A304921 A357927 * A050226 A119562 A289021

Adjacent sequences: A051718 A051719 A051720 * A051722 A051723 A051724

Keyword

nonn,easy,nice

Author

N. J. A. Sloane

Extensions

More terms from James A. Sellers, Dec 08 1999

Status

approved