A096247 Decimal expansion of Sum(1/t^t) where t is the lesser of twin prime pairs.

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, 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, 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

Offset: 1

Author

Cino Hilliard, Jul 31 2004

Keywords

• nonn
• cons

Programs

Mathematica

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 *)

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) }