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 A094724 #10 Nov 09 2014 17:45:33
%S A094724 1,0,0,3,9,2,7,7,4,5,7,5,6,4,3,9,3,6,0,6,7,0,8,6,4,5,4,4,7,1,6,6,6,8,
%T A094724 3,3,4,5,4,2,7,1,0,5,6,5,5,8,8,6,4,0,6,0,8,0,1,0,5,0,3,0,7,6,1,8,9,8,
%U A094724 5,5,2,0,9,4,8,6,5,4,5,5,1,5,7,8,8,6,0,7,9,1,6,8,4,9,4,0,0,6,1,8,9,2,9,0,6
%N A094724 Decimal expansion of Sum(1/c^c) where c is nonprime.
%e A094724 1/1^1+1/4^4 +1/6^6 +1/8^8+ ... = 1.003927745756...
%t A094724 RealDigits[Total[1/#^# &/@Select[Range[100],!PrimeQ[#]&]],10,120][[1]] (* _Harvey P. Dale_, Nov 09 2014 *)
%o A094724 (PARI) ctothec(n) = { local(x,s,a); default(realprecision,300); s=0; print1(1","); for(x=1,n,if(!isprime(x),s+=1./x^x)); a=Vec(Str(s)); for(x=3,n,print1(eval(a[x]),",")); print(); print(s) }
%K A094724 nonn,cons
%O A094724 1,4
%A A094724 _Cino Hilliard_, Jul 31 2004