|
%I #3 Oct 01 2013 17:58:00
%S 0,0,4,1,2,8,0,2,6,3,3,7,4,7,7,5,2,6,1,0,8,7,5,9,7,4,4,6,3,8,2,6,3,1,
%T 9,0,5,2,2,2,2,2,2,5,9,9,6,3,1,2,0,7,3,0,7,1,1,9,7,8,3,4,2,0,2,6,1,3,
%U 7,5,5,3,1,5,0,1,1,4,4,2,8,4,3,7,6,5,3,0,1,3,5,6,0,9,9,2,5,0,4,5,1,3,4,7,4
%N Decimal expansion of Sum(1/l^g) where l and g are the lesser and greater of twin prime pairs.
%o (PARI) tptothetp3(n) = { local(x,s,a); default(realprecision,200); s=0; forprime(x=3,n,if(isprime(x+2),s+=1./x^(x+2))); a=Vec(Str(s)); for(x=3,n,print1(eval(a[x]),",")); print(); print(s) }
%K nonn,cons
%O 1,3
%A _Cino Hilliard_, Jul 31 2004
|
