cp's OEIS Frontend

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.

%I A138701 #15 Oct 18 2017 22:50:20
%S A138701 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,
%T A138701 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,
%U A138701 3,11,0,1425517,6,0,27298231,14,1,2,1,14,0,601580873,1,9,15,2,7,6,0
%N 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.
%C A138701 Row n, for all odd n >= 3, is (0).
%C A138701 The number of terms in row n is A138702(n).
%H A138701 Michael De Vlieger, <a href="/A138701/b138701.txt">Table of n, a(n) for n = 0..3203</a>
%e A138701 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).
%p A138701 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
%t A138701 Array[ContinuedFraction@ Abs@ BernoulliB@ # &, 31, 0] // Flatten (* _Michael De Vlieger_, Oct 18 2017 *)
%Y A138701 Cf. A138702, A138703, A138704, A027641, A027642.
%K A138701 nonn,tabf
%O A138701 0,3
%A A138701 _Leroy Quet_, Mar 26 2008
%E A138701 Extended by _R. J. Mathar_, Jul 20 2009