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