A071867 - OEIS

%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