|
%I #6 Nov 21 2013 12:48:20
%S 0,3,7,3,5,7,0,3,7,0,4,0,5,4,1,9,7,6,0,3,3,0,5,9,8,0,0,6,6,1,3,7,9,4,
%T 6,6,8,8,1,9,8,2,4,1,6,1,9,8,7,2,2,6,8,3,3,5,5,0,4,7,0,6,9,7,7,4,6,0,
%U 0,7,5,7,9,0,8,0,6,9,1,2,1,4,9,5,3,9,2,7,4,1,3,0,8,5,7,3,6,5,1,6,8,3,5,3,4
%N Decimal expansion of Sum(1/t^t) where t is the lesser of twin prime pairs.
%t Join[{0},RealDigits[Total[1/#^#&/@Transpose[Select[Partition[ Prime[ Range[200]],2,1],Last[#]-First[#]==2&]][[1]]],10,120][[1]]] (* _Harvey P. Dale_, May 09 2012 *)
%o (PARI) tptothetp(n) = { local(x,s,a); default(realprecision,200); s=0; forprime(x=3,n,if(isprime(x+2),s+=1./x^x)); a=Vec(Str(s)); for(x=3,n,print1(eval(a[x]),",")); print(); print(s) }
%K nonn,cons
%O 1,2
%A _Cino Hilliard_, Jul 31 2004
|
