OFFSET
0,1
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:
convert(V, list); # Robert Israel, Mar 03 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jul 04 2003
EXTENSIONS
More terms from Robert Israel, Mar 03 2023
STATUS
approved