|
%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
|
