login
First n-digit prime in "the sequence of odd integers": 135791113151719212325272931333537394143454749...
1

%I #8 Feb 12 2013 18:21:51

%S 3,13,911,5791,79111,105107,1232527,23252729,113151719,2527293133,

%T 57911131517,991011031051,6769717375777,13579111315171,

%U 135791113151719,4547495153555759,31517192123252729,719212325272931333,1131517192123252729,71921232527293133353

%N First n-digit prime in "the sequence of odd integers": 135791113151719212325272931333537394143454749...

%C Leading zeros are forbidden (cf. A073176).

%t ndpQ[n_] := First[n] != 0 && PrimeQ[FromDigits[n]]; With[{od=Flatten[ IntegerDigits/@ Range[1,501,2]]}, Table[ FromDigits/@ Select[Partition[ od,n,1], ndpQ,1],{n,20}]]//Flatten (* _Harvey P. Dale_, Feb 12 2013 *)

%K easy,nonn,base

%O 1,1

%A _Zak Seidov_, Aug 22 2002

%E Corrected and extended by _Harvey P. Dale_, Feb 12 2013