|
|
A071866
|
|
Number of elements in the continued fraction for prime(n+1)/prime(n).
|
|
8
|
|
|
2, 3, 3, 4, 3, 3, 3, 4, 4, 3, 3, 3, 3, 4, 4, 4, 3, 3, 4, 3, 3, 4, 4, 3, 3, 3, 4, 3, 3, 3, 4, 4, 3, 4, 3, 3, 3, 4, 4, 4, 3, 3, 3, 3, 3, 6, 6, 4, 3, 3, 4, 3, 3, 4, 4, 4, 3, 3, 3, 3, 4, 4, 4, 3, 3, 6, 3, 5, 3, 3, 4, 4, 3, 3, 4, 4, 6, 3, 3, 4, 3, 3, 3, 3, 4, 4, 3, 3, 3, 4, 4, 4, 4, 5, 4, 4, 5, 3, 3, 3, 5, 4, 4, 3, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
prime(5)/prime(4) = 11/7, 11/7 continued fraction is [1, 1, 1, 3] which contains 4 elements, hence a(4)=4.
|
|
MAPLE
|
seq(nops(convert(ithprime(n+1)/ithprime(n), confrac)), n=1..200); # Robert Israel, May 29 2018
|
|
MATHEMATICA
|
Table[Length[ContinuedFraction[Prime[n + 1]/Prime[n]]], {n, 105}] - Ray Chandler, Sep 18 2005
|
|
PROG
|
(PARI) for(n=1, 200, print1(length(contfrac(prime(n+1)/prime(n))), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|