OFFSET
1,1
COMMENTS
Leading zeros count but are not printed (cf. A073428).
EXAMPLE
a(4)=5791 because first 4-digit prime in "the sequence of odd integers": 135791113151719212325272931333537394143454749... is 5791. Notice that a(6)=31051 because actually it is 031051, If we remove initial zeros, then a(6)=105107.
MATHEMATICA
p200=Flatten[IntegerDigits[2*Range[200]+1]]; 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]]}], {n, 20}]
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
STATUS
approved