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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A077648, A007652.

Sequence in context: A021729 A198236 A071641 * A038135 A087655 A016621

Adjacent sequences: A093333 A093334 A093335 * A093337 A093338 A093339

Keyword

nonn,base

Author

Cino Hilliard, Apr 25 2004

Extensions

Offset corrected by Matthew House, Aug 09 2015

Status

approved