%I #21 Sep 08 2022 08:46:05
%S 17,53,593,3617,4373,6101,8117,11681,20753,26261,30293,34613,54773,
%T 63521,86453,90017,101141,108917,112913,116981,138401,156833,176417,
%U 191861,207953,213461,219041,248021,278801,352853,404513,419921,427733,451601
%N Primes of the form n^2+17.
%H Vincenzo Librandi, <a href="/A228244/b228244.txt">Table of n, a(n) for n = 1..1000</a>
%e 17 = 0^2+17 is prime.
%e 53 = 6^2+17 is prime.
%t Select[Table[n^2 + 17, {n, 0, 900}], PrimeQ] (* _Bruno Berselli_, Aug 18 2013 *)
%o (PARI) isp(n) = isprime(n) && issquare(n-17);
%o (Magma) [m: n in [0..900] | IsPrime(m) where m is n^2+17]; // _Bruno Berselli_, Aug 18 2013
%Y Cf. A056899, A049423, A056905, A079138, A138362, A138375.
%K nonn,easy
%O 1,1
%A _Michel Marcus_, Aug 18 2013
|