forprime(p=1,2e4,(s=Vec(Str(p)))==Vecrev(s)&print(p))