Select[Range[-1130,1132],PrimeQ[1693182318746371+#]&]