A182476 Primes of the form p^2+100, where p is prime.
109, 149, 269, 389, 461, 941, 1061, 1949, 2309, 2909, 3581, 3821, 10301, 10709, 11549, 11981, 16229, 18869, 19421, 22901, 24749, 26669, 30029, 32141, 44621, 52541, 57221, 72461, 76829, 94349, 96821, 109661, 128981, 134789, 167381, 201701, 214469, 253109
Offset: 1
Programs
-
Mathematica
Select[Table[p^2 + 100, {p, Prime[Range[200]]}], PrimeQ] (* T. D. Noe, May 01 2012 *)