A100924 Digits in the decimal expansion of A100923 interpreted as digits of a binary number 0.1110101001010...
9, 1, 5, 2, 9, 4, 7, 9, 7, 5, 1, 3, 5, 6, 0, 5, 7, 9, 7, 3, 3, 6, 1, 5, 3, 9, 7, 2, 8, 5, 6, 2, 0, 8, 1, 1, 1, 2, 5, 1, 0, 2, 0, 4, 5, 3, 6, 9, 5, 7, 7, 7, 5, 0, 8, 3, 0, 0, 7, 9, 4, 6, 7, 9, 1, 5, 2, 1, 6, 7, 3, 1, 9, 1, 5, 1, 7, 4, 5, 3, 3, 4, 3, 9, 6, 7, 0, 9, 8, 0, 1, 6, 8, 5, 7, 3, 4, 0, 2, 9, 4, 4, 4, 5, 1
Offset: 0
Examples
0.91529479751356057973361539728562081112510204536957775...
Programs
-
Mathematica
N[Sum[If[And[PrimeQ[6*k - 1], PrimeQ[6*k + 1]], 1, 0]*2^(-k), {k, 1, 500}], 110]