A066707 Incrementally largest terms in the continued fraction for the constant given by Sum_{k>=0} A033308(k) / 2^k = 2.89104866587305422....
2, 8, 10, 32, 39, 5903, 135598
Offset: 1
Programs
-
Mathematica
a = {}; Do[a = Append[a, IntegerDigits[ Prime[n]]], {n, 1, 5*10^4} ]; b = ContinuedFraction[ N[ FromDigits[{Flatten[a], 0}, 2], 5*10^4]]; c = -1; d = {}; Do[ If[b[[n]] > c, c = b[[n]]; d = Append[d, c]], {n, 1, 48336} ]; d
Extensions
Name changed to match data by Sean A. Irvine, Nov 03 2023
Comments