Select[Range[0,628],PrimeQ[22930603692243271+#]&]