This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A174111 #11 Jan 14 2015 09:32:05
%S A174111 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 A174111 546,3,2,435,30,2387,462
%N A174111 Denominators of the image of a modified Bernoulli-number sequence under the Akiyama-Tanigawa transform.
%C A174111 The image of the sequence A164555(k)/A027642(k), k>=0, under the Takiyama-Tanigawa
%C A174111 transform is
%C A174111 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 A174111 The current sequence contains the denominators of this image.
%H A174111 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 A174111 read("transforms3") ;
%p A174111 A174111 := proc(n) Lin := [bernoulli(0),-bernoulli(1),seq(bernoulli(k),k=2..n+1)] ; AKIYATANI(Lin) ; denom(op(n+1,%)) ; end proc:
%t A174111 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 A174111 Cf. A174110 (numerators), A164661.
%K A174111 nonn,frac
%O A174111 0,1
%A A174111 _Paul Curtz_, Mar 08 2010