login
Denominators of column 2 of table described in A051714/A051715.
4

%I #20 Jan 24 2023 15:39:35

%S 3,4,20,20,140,28,140,20,220,44,20020,1820,1820,4,340,340,45220,532,

%T 29260,220,5060,92,41860,1820,1820,4,580,580,1384460,9548,811580,340,

%U 340,4,1279460,1279460,1279460,4,9020,9020,2715020,1204,138460,460

%N Denominators of column 2 of table described in A051714/A051715.

%H Seiichi Manyama, <a href="/A051719/b051719.txt">Table of n, a(n) for n = 0..1000</a>

%H M. Kaneko, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL3/KANEKO/AT-kaneko.html">The Akiyama-Tanigawa algorithm for Bernoulli numbers</a>, J. Integer Sequences, 3 (2000), #00.2.9.

%t 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 *)

%Y Cf. A051714, A051715, A051718.

%K nonn,easy,nice

%O 0,1

%A _N. J. A. Sloane_

%E More terms from _James A. Sellers_, Dec 08 1999