A107900 Sum of terms of continued fraction for prime(n)/n.

2, 3, 4, 5, 7, 8, 7, 7, 8, 12, 9, 15, 11, 17, 12, 11, 13, 10, 14, 11, 15, 11, 11, 11, 14, 14, 12, 12, 14, 12, 17, 17, 14, 18, 16, 16, 17, 14, 14, 20, 13, 14, 14, 13, 14, 22, 29, 14, 13, 13, 16, 18, 15, 15, 25, 14, 14, 26, 14, 16, 14, 15, 19, 20, 15, 22, 24, 29, 41, 74, 41, 76, 43

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Continued Fraction.

Maple

f:= n -> convert(Term(NumberTheory:-ContinuedFraction(ithprime(n)/n), all), `+`):
map(f, [$1..200]); # Robert Israel, Jan 08 2024

Mathematica

A107900[n_]: = Plus@@ContinuedFraction[Prime[n]/n]

Crossrefs

Cf. A107898, A107899, A107901.

Sequence in context: A085177 A067576 A364772 * A112922 A305077 A302175

Adjacent sequences: A107897 A107898 A107899 * A107901 A107902 A107903

Keyword

nonn

Author

Zak Seidov, May 26 2005

Status

approved