A182475 Primes of the form p^2+10, where p is prime.
19, 59, 131, 179, 971, 2819, 3491, 5051, 6899, 9419, 10211, 16139, 22811, 24659, 32051, 32771, 44531, 49739, 51539, 57131, 96731, 134699, 143651, 201611, 237179, 271451, 358811, 361211, 375779, 383171, 398171, 552059, 597539, 654491, 683939, 779699, 954539
Offset: 1
Programs
-
Mathematica
Select[Table[p^2 + 10, {p, Prime[Range[200]]}], PrimeQ] (* T. D. Noe, May 01 2012 *)
Comments