|
| |
|
|
A138702
|
|
a(n) = number of terms in the continued fraction of the absolute value of B_n, the n-th Bernoulli number.
|
|
2
| |
|
|
1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 6, 1, 2, 1, 7, 1, 7, 1, 4, 1, 4, 1, 6, 1, 2, 1, 6, 1, 7, 1, 7, 1, 2, 1, 10, 1, 2, 1, 8, 1, 2, 1, 3, 1, 5, 1, 10, 1, 3, 1, 7, 1, 7, 1, 6, 1, 6, 1, 17, 1, 2, 1, 7, 1, 10, 1, 2, 1, 7, 1, 23, 1, 2, 1, 2, 1, 5, 1, 18, 1, 5, 1, 16, 1, 2, 1, 10, 1, 14, 1, 6, 1, 2, 1, 18, 1, 2, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| The continued fraction terms being counted include the initial 0, if there is one. (a(n), for all odd n >= 3, is 1.)
|
|
|
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)))), which has 6 terms (including the zero). So a(12) = 6.
|
|
|
PROG
| Contribution from Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), May 14 2010: (Start)
(PARI) lcf(x)=local(r); r=1; while(1, x-=floor(x); if(x==0, return(r)); x=1/x; r++)
a(n)=lcf(abs(bernfrac(n))) (End)
|
|
|
CROSSREFS
| Cf. A138701, A138703.
Sequence in context: A078614 A026607 A052005 * A144462 A112104 A059426
Adjacent sequences: A138699 A138700 A138701 * A138703 A138704 A138705
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Mar 26 2008
|
|
|
EXTENSIONS
| More terms from Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), May 14 2010
|
| |
|
|
