OFFSET
1,3
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
ContinuedFraction[Total[1/(2^MersennePrimeExponent[Range[30]]-1)], 80] (* Harvey P. Dale, Aug 09 2021 *)
PROG
(PARI) isM(p)=my(m=Mod(4, 2^p-1)); for(i=1, p-2, m=m^2-2); !m
s=1/3; forprime(p=3, default(realprecision)*log(10)\log(2), if(isM(p), s+=1./(2^p-1))); v=contfrac(s); vector(#v-2, i, v[i+1]) \\ Charles R Greathouse IV, Mar 22 2012
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
N. J. A. Sloane, Mar 10 2012
STATUS
approved