A177690 Denominators of the Inverse Akiyama-Tanigawa transform of the aerated even-indexed Bernoulli numbers 1, 0, 1/6, 0, -1/30, 0, 1/42, ...
1, 1, 12, 6, 120, 120, 280, 140, 5040, 5040, 55440, 55440, 720720, 720720, 720720, 360360, 24504480, 24504480, 155195040, 155195040, 31039008, 10346336, 237965728, 713897184, 17847429600, 17847429600, 160626866400, 22946695200
Offset: 0
Crossrefs
Cf. A177427 (numerators).
Programs
-
Maple
read("transforms3") ; [seq(bernoulli(2*n),n=0..20)] ; AERATE(%,1) ; AKIYAMATANIGAWAi(%) ; apply(denom,%) ; # R. J. Mathar, Jan 16 2011
-
Mathematica
t[n_, 0] := BernoulliB[n]; t[1, 0]=0; t[n_, k_] := t[n, k] = (t[n, k-1] + (k-1)*t[n, k-1] - t[n+1, k-1])/k; Table[t[0, k], {k, 0, 27}] // Denominator (* Jean-François Alcover, Aug 09 2012 *)
Comments