This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A117579 #5 Jan 24 2013 09:57:26 %S A117579 1,31,96983,79870008269,22787845491220720044859, %T A117579 6901871132161346809864777612017764827, %U A117579 5709505682874900155174610004469973097336266239002423739879,11295798267103963562742898223286548990219261148710007871289771185589362412305596041 %N A117579 Numerator of Sum[i=1..n] 1/(p(i)^p(i)), p(i) = i-th prime. %F A117579 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 A117579 1/4, 31/108, 96983/337500, 79870008269/277945762500, 22787845491220720044859/79301169838123235887500, %e A117579 6901871132161346809864777612017764827/24018350267611933650627567399079537500 %t A117579 Numerator[Accumulate[1/#^#&/@Prime[Range[10]]]] (* _Harvey P. Dale_, Jan 24 2013 *) %Y A117579 Denominators = A076265. %Y A117579 Cf. A000040, A051674. %K A117579 easy,frac,nonn %O A117579 1,2 %A A117579 _Jonathan Vos Post_, Mar 29 2006 %E A117579 Corrected and extended by _Harvey P. Dale_, Jan 24 2013