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

Links

Table of n, a(n) for n=1..105.

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

Prog

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

Crossrefs

Sequence in context: A252734 A101636 A193534 * A337013 A362026 A122583

Adjacent sequences: A096244 A096245 A096246 * A096248 A096249 A096250

Keyword

nonn,cons

Author

Cino Hilliard, Jul 31 2004

Status

approved