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 A140352 #11 Sep 12 2013 10:52:03
%S A140352 1,-2,1,-3,1,-6,-2,2,1,-30,-2,-2,1,1,30,-6,-1,-3,2,1,42,6,-2,-3,1,1,
%T A140352 -42,6,2,-6,-2,2,2,1,-30,-6,3,6,-3,-2,6,1,1,30,-10,-3,1,3,-5,-3,1,2,1,
%U A140352 66,10,-2,-1,1,5,-1,-1,1,1,1
%N A140352 Denominators of Bernoulli twin numbers polynomial coefficients.
%C A140352 See numerators A140334, when numerator is 0, no entry is entered here.
%e A140352 Triangle starts:
%e A140352 1;
%e A140352 -2, 1;
%e A140352 -3, 1;
%e A140352 -6, -2, 2, 1;
%t A140352 c[0, x_] = 1; c[n_, x_] := Sum[Binomial[n-1, j-1] BernoulliB[j, x], {j, 1, n}]; Table[CoefficientList[c[n, x], x], {n, 0, 10}] // Flatten // Select[#, # != 0 &]& // Sign[#]*Denominator[#]& (* _Jean-François Alcover_, Sep 12 2013 *)
%Y A140352 Cf. A140351, A129378.
%K A140352 sign,tabf,frac
%O A140352 0,2
%A A140352 _Paul Curtz_, May 30 2008