OFFSET
1,2
COMMENTS
EXAMPLE
1.65217939256105495588822076145765122466474170334941178449725933662968594748369163520525391269497983139285...
MAPLE
f:=x->sum(ithprime(n)/exp(n), n=1..x); evalf[110](f(1500)); evalf[110](f(4000));
MATHEMATICA
RealDigits[Total[Table[Prime[k]/Exp[k], {k, 2000}]], 10, 110][[1]] (* Harvey P. Dale, Dec 18 2013 *)
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 03 2004
STATUS
approved