%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