|
%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
|
