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,3

Comments

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

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

Links

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

Example

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

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

Crossrefs

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

Sequence in context: A321981 A322481 A262886 * A332400 A355143 A274878

Adjacent sequences: A138698 A138699 A138700 * A138702 A138703 A138704

Keyword

nonn,tabf

Author

Leroy Quet, Mar 26 2008

Extensions

Extended by R. J. Mathar, Jul 20 2009

Status

approved