%I #6 Mar 30 2012 17:26:02
%S 3,79,911,5791,79111,31051,1232527,23252729,113151719,2527293133,
%T 57911131517,991011031051,6769717375777,41434547495153,
%U 192123252729313,4547495153555759,31517192123252729,71921232527293133353
%N First n-digit prime in "the sequence of odd integers": 135791113151719212325272931333537394143454749...
%C Leading zeros count but are not printed (cf. A073428).
%e 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.
%t 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}]
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Aug 22 2002
|