A100925 Partial quotients in the continued fraction of A100924.

0, 1, 10, 1, 4, 6, 1, 7, 3, 1, 1, 5, 18, 7, 1, 3, 2, 133, 5, 1, 5, 4, 1, 4, 1, 11, 19, 1, 4, 4, 1, 7, 1, 23, 1, 4, 2, 4, 1, 13, 1, 1, 2, 17, 1, 4, 2, 1, 1, 5, 9, 3, 2, 207, 4, 1, 3, 4, 4, 31, 2, 28, 2, 2, 1, 1, 7, 3, 3, 3, 1, 1, 792, 9, 1, 7, 3, 2, 2, 5, 2, 4, 1, 1, 1, 64, 2, 1, 2, 4, 1, 4, 73, 2, 1, 1, 1

Offset

1,3

Links

Table of n, a(n) for n=1..97.

Example

0.91529479751356057973361539728562081112510204536957775083007946791521673191517453343967098016857340294445133676...

Mathematica

ContinuedFraction[Sum[If[And[PrimeQ[6*k - 1], PrimeQ[6*k + 1]], 1, 0]*2^(-k), {k, 1, 500}], 110]

Crossrefs

Cf. A100923, A100924.

Sequence in context: A284327 A322219 A010182 * A082263 A337927 A131790

Adjacent sequences: A100922 A100923 A100924 * A100926 A100927 A100928

Keyword

cofr,nonn

Author

Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 22 2004

Status

approved