login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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, ... 3

%I #15 Jan 07 2019 04:14:55

%S 1,1,12,6,120,120,280,140,5040,5040,55440,55440,720720,720720,720720,

%T 360360,24504480,24504480,155195040,155195040,31039008,10346336,

%U 237965728,713897184,17847429600,17847429600,160626866400,22946695200

%N Denominators of the Inverse Akiyama-Tanigawa transform of the aerated even-indexed Bernoulli numbers 1, 0, 1/6, 0, -1/30, 0, 1/42, ...

%C See A177427 (numerators) for the description of the Akiyama-Tanigawa array of this sequence of fractions, T(0,k) = 1, 1, 13/12, 7/6, 149/120, 157/120, ...

%C If we add a zero in front and construct an array A(n,k) with successive differences A(n,k) = A(n-1,k+1)-A(n-1,k), the array A(.,.) becomes

%C 0, 1, 1, 13/12, 7/6, 149/120, 157/120, 383/280, 199/140, 7409/5040, ...

%C 1, 0, 1/12, 1/12, 3/40, 1/15, 5/84, 3/56, 7/144, 2/45, 9/220, ...

%C -1, 1/12, 0, -1/120, -1/120, -1/140, -1/168, -5/1008, -1/240, -7/1980, ...

%C 13/12, -1/12, -1/120, 0, 1/840, 1/840, 1/1008, 1/1260, 1/1584, ...

%C -7/6, 3/40, 1/120, 1/840, 0, -1/5040, -1/5040, -1/6160, -1/7920, ...

%C 149/120, -1/15, -1/140, -1/840, -1/5040, 0, 1/27720, 1/27720, ...

%C -157/120, 5/84, 1/168, 1/1008, 1/5040, 1/27720, 0, -1/144144, -1/144144, ...

%C On the diagonal, A(n,n)=0. The left column A(n,0) = (-1)^(n+1)*A(0,k) is a signed variant of the top row, which means the sequence is some eigensequence under the inverse binomial transform (see A174341 for other examples). This eigen-feature would remain if the same number of top rows and left columns were removed from A(.,.).

%p read("transforms3") ; [seq(bernoulli(2*n),n=0..20)] ; AERATE(%,1) ; AKIYAMATANIGAWAi(%) ; apply(denom,%) ; # _R. J. Mathar_, Jan 16 2011

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

%Y Cf. A177427 (numerators).

%K nonn,frac

%O 0,3

%A _Paul Curtz_, May 11 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 17:10 EDT 2024. Contains 371962 sequences. (Running on oeis4.)