A093336 Second digit of prime(n).

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, 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, 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

Offset: 5

Author

Cino Hilliard, Apr 25 2004

Keywords

• nonn
• base

Links

• Matthew House, Table of n, a(n) for n = 5..10000

Crossrefs

Cf. A077648, A007652.

Programs

Mathematica

IntegerDigits[#][[2]]&/@Prime[Range[5,110]] (* Harvey P. Dale, Dec 22 2013 *)

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) }

Extensions

Offset corrected by Matthew House, Aug 09 2015