%I #8 Jul 12 2017 05:21:47
%S 3,4,5,6,8,8,11,9,10,17,12,14,23,15,14,15,32,17,21,38,19,24,20,20,29,
%T 53,30,56,32,23,36,28,71,24,77,32,33,45,34,35,92,29,98,53,101,23,24,
%U 60,116,62,45,122,35,48,49,50,137,52,74,143,35,35,81,158,83,30,62,40,176
%N Sum of terms of continued fraction for prime(n+1)/prime(n).
%H Robert Israel, <a href="/A112768/b112768.txt">Table of n, a(n) for n = 1..10000</a>
%e Prime(6)/prime(5) = 13/11 = 1 + 1/(5 + 1/2), so a(5) = 1+5+2 = 8.
%p seq(convert(numtheory:-cfrac(ithprime(n+1)/ithprime(n), quotients),`+`),n=1..100); # _Robert Israel_, Jul 11 2017
%t Table[Plus @@ ContinuedFraction[Prime[n + 1]/Prime[n]], {n, 70}]
%o (PARI) a(n) = vecsum(contfrac(prime(n+1)/prime(n))); \\ _Michel Marcus_, Jul 12 2017
%Y Cf. A071866, A110021, A109374, A112323, A112324.
%K nonn,look
%O 1,1
%A _Ray Chandler_, Sep 18 2005