%I #8 Mar 04 2023 02:06:23
%S 2,13,23,113,137,373,1973,1733,1373,10337,10313,31379,37337,113173,
%T 211373,313739,337397,1113173,1003733,2313797,2337397,10003733,
%U 11031373,11373379,33133733,20037337,100037339,103137337
%N Smallest prime with n prime substrings (excluding prime itself but allowing leading zeros).
%e a(5)=373 because it is prime and has 5 prime substrings: 3,7,3,37,73.
%p V:= Array(0..27): count:= 0:
%p p:= 1:
%p while count < 28 do
%p p:= nextprime(p);
%p v:= nps(p);
%p if v <= 100 and V[v] = 0 then V[v]:= p; count:= count+1 fi
%p od:
%p convert(V,list); # _Robert Israel_, Mar 03 2023
%Y Cf. A085823.
%K nonn,base
%O 0,1
%A _Zak Seidov_, Jul 04 2003
%E More terms from _Robert Israel_, Mar 03 2023
|