A390226 - OEIS

%I #23 Feb 25 2026 14:18:28

%S 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,

%T 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,

%U 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

%N Continued fraction of A365075.

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

%t 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 *)

%t a={}; For[i=1, i<Length[t1], i++, AppendTo[a, Mod[Floor[10^i*Part[Rest[t1], i]], 10]]]; (* A365075 *)

%t ContinuedFraction[N[FromDigits[ a]/10^Length[a],ndigits]]

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

%K nonn,base,cofr

%O 0,4

%A _Stefano Spezia_, Feb 21 2026