A174182 Numerator of the first column, n-th row of the table of the Akiyama-Tanigawa transform starting from a top row of Bernoulli numbers.
1, 3, 17, 13, 481, 69, 1595, 53, 64561, 19333, -24278897, -4223787, 425750784331, 2082755237, -759610365139, -1935668618507, 91825384919760257, 3104887811555781, -333936446105117072383, -8039608511659164907, 496858217433153687034811, 31900258438443561908965, -1108179772136293880993162549, -186044136772398390757763787, 167280081459577193334628789960171
Offset: 0
Links
- D. Merlini, R. Sprugnoli, M. C. Verri, The Akiyama-Tanigawa Transformation, Integers, 5 (1) (2005) #A05.
Programs
-
Mathematica
a[0, k_] := BernoulliB[k]; a[n_, k_] := a[n, k] = (k+1)*(a[n-1, k] - a[n-1, k+1]); Table[a[n, 0], {n, 0, 24}] // Numerator (* Jean-François Alcover, Sep 18 2012 *)
Comments