login
Denominators of the image of a modified Bernoulli-number sequence under the Akiyama-Tanigawa transform.
3

%I #11 Jan 14 2015 09:32:05

%S 2,3,2,15,6,7,6,15,10,33,6,455,210,3,2,255,30,133,42,33,110,69,6,455,

%T 546,3,2,435,30,2387,462

%N Denominators of the image of a modified Bernoulli-number sequence under the Akiyama-Tanigawa transform.

%C The image of the sequence A164555(k)/A027642(k), k>=0, under the Takiyama-Tanigawa

%C transform is

%C 1/2, 2/3, 1/2, 2/15, -1/6, -1/7, 1/6, 4/15, -3/10, -25/33, 5/6, 1382/455, -691/210, -49/3, 35/2, 28936/255, -3617/30, -131601/133, 43867/42, 349222/33, ...

%C The current sequence contains the denominators of this image.

%H D. Merlini, R. Sprugnoli, M. C. Verri, <a href="http://www.emis.de/journals/INTEGERS/papers/f5/f5.Abstract.html">The Akiyama-Tanigawa Transformation</a>, Integers, 5 (1) (2005) #A05

%p read("transforms3") ;

%p A174111 := proc(n) Lin := [bernoulli(0),-bernoulli(1),seq(bernoulli(k),k=2..n+1)] ; AKIYATANI(Lin) ; denom(op(n+1,%)) ; end proc:

%t b[0]=0; b[1]=1; b[2]=1/2; b[n_] := BernoulliB[n-1]; a[0, m_] := b[m+1]; a[n_, m_] := a[n, m] = (m+1)*(a[n-1, m] - a[n-1, m+1]); Table[a[1, m], {m, 0, 30}] // Denominator (* _Jean-François Alcover_, Aug 09 2012 *)

%Y Cf. A174110 (numerators), A164661.

%K nonn,frac

%O 0,1

%A _Paul Curtz_, Mar 08 2010