OFFSET
6,2
COMMENTS
Middle digit of terms of A002385 from 101 onwards, skipping 2, 3, 5, 7, 11 hence offset starting at 6.
LINKS
MATHEMATICA
a = {}; Do[pp = IntegerDigits[ Prime[n]]; If[pp == Reverse[pp], a = Append[a, pp[[(Length[pp] + 1)/2]]]], {n, 6, 9385}]; a
CROSSREFS
KEYWORD
base,nonn
AUTHOR
_Amarnath Murthy_, Nov 08 2002
EXTENSIONS
Edited and extended by _Patrick De Geest_, Jun 11 2003
STATUS
approved