login
Continued fraction for C = 0.23571379....the concatenation of final decimal digits of primes.
0

%I #7 Jul 03 2021 10:38:57

%S 0,4,4,8,103,1,1,1,1,1,3,1,2,47,1,1,2,3,1,1,1,2,2,5,1,11,2,2,8,1,7,1,

%T 19,1,1,1,1,105,1,4,12,1,1,1,3,4,1,2,4,3,3,1,1,4,1,4,3,8,4,2,1,3,5,1,

%U 1,3,28,1,3,2,1,1,1,4,1,2,2,1,32,1,8,2,2,11,1,7,1,2,5,2,1,1,2,3,1,1,1,1

%N Continued fraction for C = 0.23571379....the concatenation of final decimal digits of primes.

%t With[{c=FromDigits[NumberDigit[#,0]&/@ Prime[ Range[ 500]]]}, ContinuedFraction[ c/10^IntegerLength[c]]] (* Requires Mathematica version 12 or later *) (* _Harvey P. Dale_, Jul 03 2021 *)

%o (PARI) \p200 contfrac(sum(n=0,100,(prime(n)%10)*10^-n))

%Y Cf. A007652.

%K base,cofr,easy,nonn

%O 1,2

%A _Benoit Cloitre_, Jun 24 2002