1,3
Table of n, a(n) for n=1..14.
a = {}; Do[ a = Append[a, IntegerDigits[ Prime[n], 2]], {n, 1, 50000} ]; ContinuedFraction[ N[ FromDigits[ {Flatten[a], 0}, 2], 194230]]; c = -1; d = {}; Do[ If[ b[[n]] > c, c = b[[n]]; d = Append[d, c]], {n, 1, 194230} ]; d
Sequence in context: A072532 A215373 A038705 * A140560 A118625 A031133
Adjacent sequences: A066751 A066752 A066753 * A066755 A066756 A066757
cofr,nonn
Robert G. Wilson v, Jan 16 2002
approved
