Data commit

Task/Emirp-primes/Maple/emirp-primes.maple

@@ -0,0 +1,22 @@
+EmirpPrime := proc(n)
+    local eprime;
+    eprime := parse(StringTools:-Reverse(convert(n,string)));
+    if n <> eprime and isprime(n) and isprime(eprime) then
+        return n;
+    end if;
+end proc:
+EmirpsList := proc( n )
+    local i, values;
+    values := Array([]):
+    i := 0:
+    do
+        i := i + 1;
+        if EmirpPrime(i) <> NULL then
+            ArrayTools:-Append(values, i);
+        end if;
+    until numelems(values) = n;
+    return convert(values,list);
+end proc:
+EmirpsList(20);
+EmirpPrime~([seq(7700..8000)]);
+EmirpsList(10000)[-1];