A117579 Numerator of Sum[i=1..n] 1/(p(i)^p(i)), p(i) = i-th prime.

1, 31, 96983, 79870008269, 22787845491220720044859, 6901871132161346809864777612017764827, 5709505682874900155174610004469973097336266239002423739879, 11295798267103963562742898223286548990219261148710007871289771185589362412305596041

Offset

1,2

Links

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

Formula

a(n) = Numerator of Sum[i=1..n] 1/(p(i)^p(i)). a(n) = Numerator of Sum[i=1..n] 1/(A000040(i)^A000040(i)). a(n) = Numerator of Sum[i=1..n] 1/A051674(i).

Example

1/4, 31/108, 96983/337500, 79870008269/277945762500, 22787845491220720044859/79301169838123235887500,
6901871132161346809864777612017764827/24018350267611933650627567399079537500

Mathematica

Numerator[Accumulate[1/#^#&/@Prime[Range[10]]]] (* Harvey P. Dale, Jan 24 2013 *)

Crossrefs

Denominators = A076265.

Cf. A000040, A051674.

Sequence in context: A263163 A188956 A218142 * A249584 A351135 A107122

Adjacent sequences: A117576 A117577 A117578 * A117580 A117581 A117582

Keyword

easy,frac,nonn

Author

Jonathan Vos Post, Mar 29 2006

Extensions

Corrected and extended by Harvey P. Dale, Jan 24 2013

Status

approved