|
|
A085822
|
|
Smallest prime with n prime substrings (excluding prime itself but allowing leading zeros).
|
|
2
|
|
|
2, 13, 23, 113, 137, 373, 1973, 1733, 1373, 10337, 10313, 31379, 37337, 113173, 211373, 313739, 337397, 1113173, 1003733, 2313797, 2337397, 10003733, 11031373, 11373379, 33133733, 20037337, 100037339, 103137337
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(5)=373 because it is prime and has 5 prime substrings: 3,7,3,37,73.
|
|
MAPLE
|
V:= Array(0..27): count:= 0:
p:= 1:
while count < 28 do
p:= nextprime(p);
v:= nps(p);
if v <= 100 and V[v] = 0 then V[v]:= p; count:= count+1 fi
od:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|