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

Author

Jonathan Vos Post, Mar 29 2006

Keywords

• easy
• frac
• nonn

Examples

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

Crossrefs

Denominators = A076265.

Cf. A000040, A051674.

Programs

Mathematica

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

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

Extensions

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