A138701 Irregular array read by rows: row n contains the continued fraction terms (in order) for the absolute value of B_n, the n-th Bernoulli number.

1, 0, 2, 0, 6, 0, 0, 30, 0, 0, 42, 0, 0, 30, 0, 0, 13, 5, 0, 0, 3, 1, 19, 3, 11, 0, 1, 6, 0, 7, 10, 1, 5, 1, 2, 2, 0, 54, 1, 33, 1, 2, 3, 2, 0, 529, 8, 20, 2, 0, 6192, 8, 8, 2, 0, 86580, 3, 1, 19, 3, 11, 0, 1425517, 6, 0, 27298231, 14, 1, 2, 1, 14, 0, 601580873, 1, 9, 15, 2, 7, 6, 0

Offset: 0

Author

Leroy Quet, Mar 26 2008

Keywords

• nonn
• tabf

Comments

Row n, for all odd n >= 3, is (0).

The number of terms in row n is A138702(n).

Examples

			The 12th Bernoulli number is -691/2730. Now 691/2730 has the continued fraction 0 + 1/(3 + 1/(1 + 1/(19 + 1/(3 + 1/11)))). So row 12 is (0,3,1,19,3,11).
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..3203

Crossrefs

Cf. A138702, A138703, A138704, A027641, A027642.

Programs

Maple

A138701row := proc(n) local B; B := abs(bernoulli(n)) ; numtheory[cfrac](B,20,'quotients') ; end: seq(op(A138701row(n)),n=0..80) ; # R. J. Mathar, Jul 20 2009

Mathematica

Array[ContinuedFraction@ Abs@ BernoulliB@ # &, 31, 0] // Flatten (* Michael De Vlieger, Oct 18 2017 *)

Extensions

Extended by R. J. Mathar, Jul 20 2009