|
| |
|
|
A093827
|
|
Decimal expansion of Silverman's constant.
|
|
2
| |
|
|
1, 7, 8, 6, 5, 7, 6, 4, 5, 9, 3, 6, 5, 9, 2, 2, 4, 6, 3, 4, 5, 8, 5, 9, 0, 4, 7, 5, 5, 4, 1, 3, 1, 5, 7, 5, 0, 3, 1, 2, 6, 2, 1, 9, 0, 2, 3, 8, 4, 2, 4, 3, 2, 9, 4, 9, 0, 1, 0, 7, 2, 4, 9, 6, 2, 1, 4, 2, 4, 5, 2, 7, 9, 1, 3, 4, 7, 8, 6, 2, 2, 3, 7, 7, 3, 2, 6, 9
(list; constant; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Silverman Constant
|
|
|
EXAMPLE
| 1.78657645...
|
|
|
MAPLE
| read("transforms") ; Digits := 140 ; kmax := 450 ; tmax := kmax-10 ; 1+add(1/(p^(2*k)-p^(k-1)), k=1..kmax) : xt := subs(p=1/x, %) : xt := taylor(xt, x=0, tmax) ; L := [] ; for n from 1 to tmax-1 do L := [op(L), coeftayl(xt, x=0, n)]; end do: Le := EULERi(L) ; x := 1.0 ; for i from 2 to nops(Le) do x := x*Zeta(i)^op(i, Le) ; x := evalf(x) ; print(x) ; end do: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 28 2010]
|
|
|
MATHEMATICA
| Sum[1/(EulerPhi[n]DivisorSigma[1, n]), {n, Infinity}]
|
|
|
CROSSREFS
| Sequence in context: A197762 A181624 A143300 * A088660 A020506 A193345
Adjacent sequences: A093824 A093825 A093826 * A093828 A093829 A093830
|
|
|
KEYWORD
| nonn,cons,more
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Apr 16, 2004
|
|
|
EXTENSIONS
| 37 more digits from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 28 2010
|
| |
|
|
