A228244 Primes of the form k^2 + 17.
17, 53, 593, 3617, 4373, 6101, 8117, 11681, 20753, 26261, 30293, 34613, 54773, 63521, 86453, 90017, 101141, 108917, 112913, 116981, 138401, 156833, 176417, 191861, 207953, 213461, 219041, 248021, 278801, 352853, 404513, 419921, 427733, 451601, 518417, 562517
Offset: 1
Examples
17 = 0^2 + 17 is prime. 53 = 6^2 + 17 is prime.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[m: n in [0..900] | IsPrime(m) where m is n^2+17]; // Bruno Berselli, Aug 18 2013
-
Mathematica
Select[Table[n^2 + 17, {n, 0, 900}], PrimeQ] (* Bruno Berselli, Aug 18 2013 *) -
PARI
isp(n) = isprime(n) && issquare(n-17);