|
| |
|
|
A134475
|
|
a(n) = denominator of sum{k=1 to n} 1/A134473(k).
|
|
6
| |
|
|
2, 5, 53, 9886302, 32706124785400851, 105840083750427500921760353826840828183, 51348043200265516352304296553233166994035195487912155511387668758325728717007499617
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| The numerator of sum{k=1 to n} 1/A134473(k) is A134474(n). A134474(n)/A134475(n) approaches a constant (.6037789...) as n approaches infinity.
|
|
|
MAPLE
| Digits := 220 ; A134473 := proc(n) option remember ; local su, mu ; if n =1 then 2; else su := add(1/procname(k), k=1..n-1) ; mu := mul(1/(1+1/procname(j)), j=1..n-1) ; ceil( (1+su+sqrt((su-1)^2+4*mu))/2/(mu-su) ) ; fi; end: A134475 := proc(n) add(1/A134473(k), k=1..n) ; denom(%) ; end: seq(A134475(n), n=1..9) ; [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 20 2009]
|
|
|
CROSSREFS
| Cf. A134473, A134474, A134476, A134477.
Sequence in context: A071882 A206848 A081482 * A114029 A013171 A073422
Adjacent sequences: A134472 A134473 A134474 * A134476 A134477 A134478
|
|
|
KEYWORD
| frac,nonn
|
|
|
AUTHOR
| Leroy Quet Oct 27 2007
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 20 2009
|
| |
|
|
