login
A071775
Continued fraction for C = 0.23571379....the concatenation of final decimal digits of primes.
0
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, 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, 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
OFFSET
1,2
MATHEMATICA
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 *)
PROG
(PARI) \p200 contfrac(sum(n=0, 100, (prime(n)%10)*10^-n))
CROSSREFS
Cf. A007652.
Sequence in context: A205971 A118016 A201989 * A269594 A378770 A134576
KEYWORD
base,cofr,easy,nonn
AUTHOR
Benoit Cloitre, Jun 24 2002
STATUS
approved