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

1,5

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A100060, A102522.

Sequence in context: A040448 A040453 A040452 * A040454 A040455 A040456

Adjacent sequences: A102521 A102522 A102523 * A102525 A102526 A102527

Keyword

cofr,nonn

Author

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

Status

approved