OFFSET
0,3
MATHEMATICA
b[n_] := -2*(2^(2*n - 1) - 1)*BernoulliB[2*n]; t = Table[b[n], {n, 0, 30}] // Denominator; A172087 = Transpose[{t, t}] // Flatten (* Jean-François Alcover, Jan 11 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Curtz, Jan 25 2010
EXTENSIONS
More terms from Jean-François Alcover, Jan 11 2016
Edited by N. J. A. Sloane, Apr 22 2021.
STATUS
approved