|
| |
|
|
A107952
|
|
Increasing partial quotients in A107951.
|
|
3
| |
|
|
1, 4, 6, 23, 25, 36, 84, 499, 857, 1393, 1741, 1961, 106527, 130617, 257090, 1912295, 2647129
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Positions of the increasingly larger partial quotients are in A106643.
|
|
|
MATHEMATICA
| cf = ContinuedFraction[ Sum[i(i + 1)/2/Product[i!/j!, {j, 0, i - 1}], {i, 1500}]]; a = 0; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[a]], {n, 6462686}]
|
|
|
CROSSREFS
| Cf. A107951, A107950, A105658.
Sequence in context: A062940 A075813 A004032 * A123046 A087784 A174197
Adjacent sequences: A107949 A107950 A107951 * A107953 A107954 A107955
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), May 28 2005
|
| |
|
|
