A172031 Denominator of the fraction c(n) defined in A172030.

1, 1, 2, 6, 3, 30, 15, 70, 35, 210, 105, 2310, 1155, 10010, 5005, 30030, 15015, 510510, 255255, 3233230, 1616615, 1939938, 969969, 44618574, 22309287, 74364290, 37182145, 223092870, 111546435, 6469693230, 3234846615, 66853496710, 33426748355, 200560490130

Offset: 0

Author

Paul Curtz, Jan 23 2010

Keywords

• nonn
• frac

Programs

Mathematica

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 *)

Extensions

Edited and extended by R. J. Mathar, Mar 14 2010