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