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 A093337 #8 Sep 08 2022 08:45:13
%S A093337 1,1,1,1,2,2,3,3,4,4,4,5,5,6,6,7,7,7,8,8,9,0,0,0,0,1,2,3,3,3,4,5,5,6,
%T A093337 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 A093337 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 A093337 Penultimate digits of the primes.
%t A093337 IntegerDigits[#][[-2]]&/@Prime[Range[5,110]] (* _Harvey P. Dale_, Apr 08 2019 *)
%o A093337 (PARI) penult(n) = { forprime(x=11,n, s = Str(x); ln = length(s); pu = mid(s,ln-1,1); print1(pu",") ) } \ 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) }
%o A093337 (Magma) [Intseq(p)[2]: p in PrimesInInterval(11,600)]; // _Bruno Berselli_, Feb 14 2013
%Y A093337 Cf. A093336, A077648, A007652.
%K A093337 nonn,base
%O A093337 11,5
%A A093337 _Cino Hilliard_, Apr 25 2004