|
Search: id:A107952
|
|
| |
|
| 1, 4, 6, 23, 25, 36, 84, 499, 857, 1393, 1741, 1961, 106527, 130617, 257090, 1912295, 2647129
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A123046 A087784 A071224
Adjacent sequences: A107949 A107950 A107951 this_sequence A107953 A107954 A107955
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 28 2005
|
|
|
Search completed in 0.002 seconds
|
