This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A086171 Continued fraction from an irrational number formed by concatenating the primes. 0
 0, 4, 4, 6, 2, 5, 18, 1, 3, 4, 1, 2, 1, 2, 4, 7, 4, 1, 21, 2, 1, 3, 5, 2, 1, 1, 27, 1, 1, 5, 12, 1, 18, 1, 1, 1, 1, 1, 1, 9, 3, 1, 1, 1, 5, 1, 5, 2, 2, 1, 53, 1, 8, 1, 23, 6, 2, 2, 1, 1, 3, 1, 1, 25, 2, 2, 7, 1, 2, 3, 1, 4, 3, 12, 1, 2, 7, 1, 68, 1, 19, 1, 2, 2, 14, 4, 6, 2, 1, 2, 58, 2, 16, 1, 1, 1, 2, 2, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS FORMULA byte[n] =byte[n-1]+Floor[Log[Prime[n-1]]/Log[10]]+1 r=Sum[Prime[n]^10^(-byte[n]), {n, 1, Infinity}] EXAMPLE r=0.235811317192329313741434753596167717... MATHEMATICA (* number of powers of ten in the Primes as a sequence*) byte[n_Integer?Positive] := byte[n] =byte[n-1]+Floor[Log[Prime[n-1]]/Log[10]]+1 byte[0]=byte[1] = 1 b=Table[N[Prime[n]*10^(-byte[n]), Digits], {n, 1, Digits}] r=Apply[Plus, b] CROSSREFS Sequence in context: A205868 A156583 A199280 * A090113 A073821 A155976 Adjacent sequences:  A086168 A086169 A086170 * A086172 A086173 A086174 KEYWORD nonn,base,cofr AUTHOR Roger L. Bagula, Aug 26 2003 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .