cp's OEIS Frontend

A085822 Smallest prime with n prime substrings (excluding prime itself but allowing leading zeros).

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