%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