A107898 - OEIS

%I #10 Jan 09 2024 15:57:59

%S 2,3,4,4,3,3,4,5,5,4,5,3,4,3,4,4,4,6,5,6,4,6,7,6,5,6,6,7,5,6,4,5,6,4,

%T 5,4,4,5,6,4,7,5,6,7,7,4,4,8,9,9,6,6,7,7,5,7,8,5,8,6,8,8,6,5,7,5,6,6,

%U 4,4,5,4,4,5,5,4,4,4,4,5,7,5,5,5,4,8,6,6,7,5,7,6,6,5,5,6,4,5,7,8,6,6,6,5,7

%N Length of continued fraction for n/prime(n).

%H Robert Israel, <a href="/A107898/b107898.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ContinuedFraction.html">Continued Fraction</a>.

%F a(n) = A107901(n) + 1.

%p [seq(nops(convert(n/ithprime(n),confrac)),n=1..200)]; # _Robert Israel_, Jan 26 2020

%t A107898[n_]=Length[ContinuedFraction[n/Prime[n]]

%Y Cf. A107899, A107900, A107901.

%K nonn

%O 1,1

%A _Zak Seidov_, May 26 2005