A390226 Continued fraction of A365075.

0, 1, 1, 7, 1, 2, 66, 2, 1, 2, 1, 1, 3, 1, 73, 1, 1, 1, 2, 19, 12, 1, 1, 2, 3, 4, 1, 78, 14, 1, 33, 2, 4, 1, 2, 41, 17, 1, 52, 1, 1, 1, 3, 1, 3, 1, 3, 6, 1, 4, 2, 2, 1, 22, 2, 1, 1, 1, 5, 2, 1, 1, 3, 5, 4, 1, 4, 1, 1, 7, 1, 3, 1, 3, 2, 2, 1, 634, 2, 2, 5, 3, 1, 2, 1, 2, 5, 4, 3, 26, 1, 1, 1, 10, 1, 1, 1

Offset

0,4

Links

Table of n, a(n) for n=0..96.

Example

0.530606002004018020539238... = 1/(1 + 1/(1 + 1/(7 + 1/(1 + 1/(2 + 1/(66 + ...)))))).

Mathematica

ndigits=100; t1={}; For[n=2, n <= ndigits, n++, AppendTo[t1, 1/(n-1)]; For[i=2, i <= Floor[(n-1)/2], i++, If[GCD[i, n-i] == 1, AppendTo[t1, i/(n-i)]]]]; (* A182972/A182973 *)
a={}; For[i=1, i<Length[t1], i++, AppendTo[a, Mod[Floor[10^i*Part[Rest[t1], i]], 10]]]; (* A365075 *)
ContinuedFraction[N[FromDigits[ a]/10^Length[a], ndigits]]

Crossrefs

Cf. A182972, A182973, A365075 (decimal expansion).

Sequence in context: A258335 A266985 A286912 * A239807 A130875 A370112

Adjacent sequences: A390223 A390224 A390225 * A390227 A390228 A390229

Keyword

nonn,base,cofr

Author

Stefano Spezia, Feb 21 2026

Status

approved