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

Maximum element in the continued fraction for prime(n+1)/prime(n).
1

%I #11 May 23 2022 11:46:57

%S 2,2,2,3,5,4,8,4,5,14,6,9,20,10,7,8,29,10,16,35,12,19,13,11,24,50,25,

%T 53,27,14,31,21,68,13,74,25,26,40,27,28,89,18,95,48,98,16,17,55,113,

%U 57,38,119,24,41,42,43,134,45,69,140,28,20,76,155,78,22,55,33,173,87,58

%N Maximum element in the continued fraction for prime(n+1)/prime(n).

%H Amiram Eldar, <a href="/A071867/b071867.txt">Table of n, a(n) for n = 1..10000</a>

%e prime(5)/prime(4) = 11/7, the continued fraction of 11/7 is [1, 1, 1, 3], hence a(4) = 3.

%t Table[Max[ContinuedFraction[Prime[n+1]/Prime[n]]],{n,80}] (* _Harvey P. Dale_, Dec 24 2015 *)

%o (PARI) for(n=1,200,print1(vecmax(contfrac(prime(n+1)/prime(n))),","))

%Y Cf. A071866.

%K easy,nonn

%O 1,1

%A _Benoit Cloitre_, Jun 09 2002