[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A138704
Irregular array read by rows: row n contains the continued fraction terms (in order) for the absolute value of B_{2n}, the (2n)th Bernoulli number.
4
1, 0, 6, 0, 30, 0, 42, 0, 30, 0, 13, 5, 0, 3, 1, 19, 3, 11, 1, 6, 7, 10, 1, 5, 1, 2, 2, 54, 1, 33, 1, 2, 3, 2, 529, 8, 20, 2, 6192, 8, 8, 2, 86580, 3, 1, 19, 3, 11, 1425517, 6, 27298231, 14, 1, 2, 1, 14, 601580873, 1, 9, 15, 2, 7, 6, 15116315767, 10, 1, 5, 1, 2, 2, 429614643061, 6
OFFSET
0,3
COMMENTS
The number of terms in row n is A138705(n).
LINKS
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 6 is (0,3,1,19,3,11).
MAPLE
A138704row := proc(n) local B; B := abs(bernoulli(2*n)) ; numtheory[cfrac](B, 20, 'quotients') ; end: seq(op(A138704row(n)), n=0..20) ; # R. J. Mathar, Jul 20 2009
MATHEMATICA
Array[ContinuedFraction@ Abs@ BernoulliB[2 #] &, 18, 0] // Flatten (* Michael De Vlieger, Oct 18 2017 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Leroy Quet, Mar 26 2008
EXTENSIONS
More terms from R. J. Mathar, Jul 20 2009
STATUS
approved