%I A093337
%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,6,
%T A093337 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,6,7,
%U A093337 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.
%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) }
%Y A093337 Cf. A093336, A077648, A007652.
%Y A093337 Sequence in context: A000006 A061017 A088462 this_sequence A120397 A104305 
               A050506
%Y A093337 Adjacent sequences: A093334 A093335 A093336 this_sequence A093338 A093339 
               A093340
%K A093337 nonn,base
%O A093337 11,5
%A A093337 Cino Hilliard (hillcino368(AT)gmail.com), Apr 25 2004