%I #5 Jan 24 2013 09:57:26
%S 1,31,96983,79870008269,22787845491220720044859,
%T 6901871132161346809864777612017764827,
%U 5709505682874900155174610004469973097336266239002423739879,11295798267103963562742898223286548990219261148710007871289771185589362412305596041
%N Numerator of Sum[i=1..n] 1/(p(i)^p(i)), p(i) = i-th prime.
%F 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).
%e 1/4, 31/108, 96983/337500, 79870008269/277945762500, 22787845491220720044859/79301169838123235887500,
%e 6901871132161346809864777612017764827/24018350267611933650627567399079537500
%t Numerator[Accumulate[1/#^#&/@Prime[Range[10]]]] (* _Harvey P. Dale_, Jan 24 2013 *)
%Y Denominators = A076265.
%Y Cf. A000040, A051674.
%K easy,frac,nonn
%O 1,2
%A _Jonathan Vos Post_, Mar 29 2006
%E Corrected and extended by _Harvey P. Dale_, Jan 24 2013
|