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,changed
AUTHOR
Zak Seidov, Jul 04 2003
EXTENSIONS
More terms from Robert Israel, Mar 03 2023
Name clarified and more terms from Sean A. Irvine, Jul 11 2026
STATUS
approved
