OFFSET
0,1
EXAMPLE
0.39647840017672880132037721... = 1/2^1 - 1/3^2 + 1/5^3 - 1/7^4 + ...
MAPLE
with(numtheory): Digits:=105:s:=sum( evalf(((-1)^(n+1))/ ithprime(n)^n), n=1..200):print(s):
MATHEMATICA
digits = 105; NSum[(-1)^(n+1)/Prime[n//Round]^n, {n, 1, Infinity}, Method -> "AlternatingSigns", WorkingPrecision -> digits, NSumTerms -> digits] // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 24 2014 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Michel Lagneau, Dec 03 2011
STATUS
approved