OFFSET
1,1
COMMENTS
Leading zeros are forbidden (cf. A073468).
EXAMPLE
a(6)=141161 because first 6-digit prime in "the sequence of even integers": 246810121416182022242628303234... is 141161 (omiiting initial zeros, otherwise 6 successive integers which give first "6-digital" prime are "001021" )
MATHEMATICA
p200=Flatten[IntegerDigits[2*Range[200]]]; Do[pn=Partition[p200, n, 1]; ln=Length[pn]; tab=Table[Sum[10^(n-k)*pn[[i, k]], {k, n}], {i, ln}]; tas=Select[tab, PrimeQ]; Print[{n, tas[[1]], tas[[2]], tas[[3]]}], {n, 20}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Feb 02 2003
STATUS
approved