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 A093336 #8 Aug 09 2015 16:40:47
%S A093336 1,3,7,9,3,9,1,7,1,3,7,3,9,1,7,1,3,9,3,9,7,0,0,0,0,1,2,3,3,3,4,5,5,6,
%T A093336 6,7,7,8,9,9,9,9,1,2,2,2,3,3,4,5,5,6,6,7,7,8,8,9,0,1,1,1,3,3,4,4,5,5,
%U A093336 6,7,7,8,8,9,0,0,1,2,3,3,3,4,4,5,6,6,6,7,8,9,9,0,0,2,2,4,4,5,6,6,7,7,8,9,9
%N A093336 Second digit of prime(n).
%H A093336 Matthew House, <a href="/A093336/b093336.txt">Table of n, a(n) for n = 5..10000</a>
%t A093336 IntegerDigits[#][[2]]&/@Prime[Range[5,110]] (* _Harvey P. Dale_, Dec 22 2013 *)
%o A093336 (PARI) second(n) = { forprime(x=11,n, sd = mid(Str(x),2,1); print1(sd",") ) } \ Get a substring of length n from string str starting at position s in str. mid(str,s,n) = { v =""; tmp = Vec(str); ln=length(tmp); for(x=s,s+n-1, v=concat(v,tmp[x]); ); return(v) }
%Y A093336 Cf. A077648, A007652.
%K A093336 nonn,base
%O A093336 5,2
%A A093336 _Cino Hilliard_, Apr 25 2004
%E A093336 Offset corrected by _Matthew House_, Aug 09 2015