%I #7 Dec 16 2013 09:47:10
%S 1,1,1,2,1,1,2,1,3,1,2,1,1,1,30,1,1,1,10,1,21,1,10,1,1,1,42,1,1,1,2,1,
%T 231,1,10,1,1,1,2730,1,1,1,110,1,21,1,2,1,1,1,1326,1,11,1,10,1,57,1,
%U 10,1,1,1,30030
%N 1, 1, followed by denominators of A000217(n)*A164555(n)/A027642(n).
%C See A233316.
%t b[-2] = b[-1] = 0; b[1] = 1/2; b[n_] := BernoulliB[n]; a[n_] := (n + 1)*(n + 2)/2*b[n] // Denominator; Table[a[n], {n, -2, 60}]
%Y Cf. A233316 (numerators).
%K nonn,frac
%O -2,4
%A _Jean-François Alcover_ and _Paul Curtz_, Dec 12 2013