%I #6 Apr 15 2013 11:10:33
%S 1,1,2,6,3,30,15,70,35,210,105,2310,1155,10010,5005,30030,15015,
%T 510510,255255,3233230,1616615,1939938,969969,44618574,22309287,
%U 74364290,37182145,223092870,111546435,6469693230,3234846615,66853496710,33426748355,200560490130
%N Denominator of the fraction c(n) defined in A172030.
%t c[n_] := 2*c[n-1] + BernoulliB[n-1]; c[0] = 0; c[1] = 1; c[2] = 5/2; a[n_] := c[n] // Denominator; Table[a[n], {n, 0, 33}] (* _Jean-François Alcover_, Apr 15 2013 *)
%K nonn,frac
%O 0,3
%A _Paul Curtz_, Jan 23 2010
%E Edited and extended by _R. J. Mathar_, Mar 14 2010