A172087 A001897 with terms repeated.

1, 1, 3, 3, 15, 15, 21, 21, 15, 15, 33, 33, 1365, 1365, 3, 3, 255, 255, 399, 399, 165, 165, 69, 69, 1365, 1365, 3, 3, 435, 435, 7161, 7161, 255, 255, 3, 3, 959595, 959595, 3, 3, 6765, 6765, 903, 903, 345, 345, 141, 141

Offset: 0

Author

Paul Curtz, Jan 25 2010

Keywords

• nonn

Crossrefs

Cf. A001897, A172087.

Programs

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

Extensions

More terms from Jean-François Alcover, Jan 11 2016

Edited by N. J. A. Sloane, Apr 22 2021.