proposed

approved

editing

proposed

(PARI) default(realprecision, 80); s=sqrt(p=1e6); while(p=precprime(p-1), s=p/(1+s)); eval(vecextract(Vec(Str((1+s)/(2+s))), "3..-2")) \\ - ")) \\ _M. F. Hasler, _, Jun 16 2011.

approved

editing

editing

approved

N[Fold[#2/(1 + #1) &, 0, Join[Reverse@Prime@Range@180000, {1, 1}]], 111] [From _] (* _Robert G. Wilson v_, Jun 16 2011] *)

Values corrected upon observation by R. J. Mathar, Jun 16 2011.

approved

editing

editing

approved

N[Fold[#2/(1 + #1) &, 0, Join[Reverse@Prime@Range@180000, {1, 1}]], 111] [From _Robert R. G. Wilson v, _, Jun 16 2011]

Values corrected upon observation by _R. J. Mathar, _, Jun 16 2011.

approved

editing

editing

approved

6, 6, 2, 0, 9, 4, 2, 5, 1, 7, 8, 5, 1, 0, 3, 7, 5, 8, 8, 1, 2, 3, 1, 8, 1, 0, 8, 9, 8, 4, 1, 6, 3, 6, 8, 6, 0, 7, 3, 3, 8, 5, 4, 7, 7, 0, 8, 1, 2, 4, 4, 6, 6, 3, 2, 3, 2, 0, 1, 9, 3, 1, 2, 8, 5, 5, 4, 0, 4, 3, 3, 9, 7, 6, 2, 2, 7, 7, 5, 4, 4, 4, 2, 4, 3, 0, 1, 4, 4, 7, 8, 9, 8, 2, 6, 0, 6, 5, 3, 6, 4, 9, 6, 5, 7, 8, 9, 6, 6, 2, 5, 0, 5, 5, 9, 7, 2, 7, 0, 9, 8, 8, 0, 2, 6, 5, 0, 9, 6, 6, 2, 5, 0, 4, 3, 3, 9, 0, 2, 1, 4, 6, 5, 0, 2, 1, 7, 6, 8, 7, 3, 6, 2, 5, 8, 7, 7, 5, 5, 2, 8, 4, 8, 6, 8, 5, 5, 1, 1, 9, 9, 3, 4, 9, 5, 5, 7, 6, 4, 2, 3, 2, 5, 4, 8, 2, 2, 7, 5, 0, 4, 7, 7, 9, 9, 2, 4, 1, 0

approved

editing

editing

approved