(dotimes(p 2e4)(format(and(> p 1)(equal(reverse #1=(princ-to-string p))#1#)(=(gcd(!(isqrt p))p)1))"~D
"p))