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
KEYWORD
base,cofr,easy,nonn
AUTHOR
Benoit Cloitre, Jun 24 2002
STATUS
approved