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 A090201 #6 Nov 21 2013 12:48:16
%S A090201 1,4,5,2,5,9,2,8,6,2,9,4,1,9,3,8,9,4,7,4,6,8,6,8,7,9,2,0,6,2,4,5,2,1,
%T A090201 1,8,7,4,7,5,5,9,9,4,3,1,5,8,6,8,7,1,5,1,5,4,6,0,6,2,3,2,7,6,6,5,0,9,
%U A090201 3,4,8,3,0,8,6,3,9,1,4,0,9,3,3,1,1,1,5,2,9,2,5,7,7,1,9,8,3,0,6,7,2,7,5,1,6
%N A090201 a(n) = p-th digit of Pi where p = n-th prime.
%C A090201 The prime-th digits of Pi.
%e A090201 The 5th prime is 11. The 11th digit of pi is 5, the 5th term in the sequence.
%t A090201 With[{nn=600},Pick[RealDigits[Pi,10,nn][[1]],If[PrimeQ[#],1,0]&/@ Range[nn],1]] (* _Harvey P. Dale_, Apr 22 2012 *)
%o A090201 (PARI) \primeth.gp primeth(n) = { default(realprecision,1000); p=Str(Pi*10^999); default(realprecision,28); forprime(x=2,n, print1(mid(p,x,1)",") ) } mid(str,s,n) = { v =""; tmp = Vec(str); ln=length(tmp); for(x=s,s+n-1, v=concat(v,tmp[x]); ); return(v) }
%K A090201 easy,nonn,base
%O A090201 2,2
%A A090201 _Cino Hilliard_, Jan 22 2004