A102524 Continued fraction expansion of A102522.

0, 1, 1, 1, 21, 1, 3, 36, 3, 1, 1, 6, 2, 1, 1, 1, 1, 3, 1, 44, 1, 3, 3, 4, 13, 1, 4, 7, 1, 1, 3, 1, 3, 1, 4, 2, 1, 1, 1, 17, 5, 1, 9, 1, 1, 6, 1, 6, 12, 3, 5, 1, 1, 8, 1, 3, 30, 1, 4, 4, 1, 2, 2, 7, 1, 7, 1, 16, 7, 8, 7, 1, 51, 1, 1, 1, 240, 7, 1, 2, 1, 1, 1, 7, 4, 1, 10, 19, 3, 1, 6, 1, 22, 1, 6, 1, 1, 2, 5

Offset: 0

Author

Gary W. Adamson and Robert G. Wilson v, Jan 13 2005

Keywords

• cofr
• nonn

Comments

Increasing PQ's are: 1,21,36,44,51,240,298,999,2004,18156,130055, ...

Crossrefs

Cf. A100060, A102522 (decimal expansion).

Programs

Mathematica

ContinuedFraction[ FromDigits[ {Join[{1}, Table[ If[ xx[[n]] > 0, 1, 0], {n, 1000}]], 0}, 2]]

Extensions

Offset changed by Andrew Howroyd, Aug 04 2024