OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Continued Fraction
Eric Weisstein's World of Mathematics, Perfect Number
EXAMPLE
6.0357117143069233346283990529260946180806175748136895461...
MATHEMATICA
ind = {1, 2, 3, 4, 6, 7, 8, 11, 18, 24, 28, 31, 98, 111} (* from A016027 *); p = Prime@ ind; pn = (2^p - 1)(2^(p - 1)); RealDigits[ FromContinuedFraction@ pn, 10, 111][[1]] (* Robert G. Wilson v, Sep 13 2015 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Ilya Gutkovskiy, Sep 02 2015
STATUS
approved