OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
17 = 0^2+17 is prime.
53 = 6^2+17 is prime.
MATHEMATICA
Select[Table[n^2 + 17, {n, 0, 900}], PrimeQ] (* Bruno Berselli, Aug 18 2013 *)
PROG
(PARI) isp(n) = isprime(n) && issquare(n-17);
(Magma) [m: n in [0..900] | IsPrime(m) where m is n^2+17]; // Bruno Berselli, Aug 18 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michel Marcus, Aug 18 2013
STATUS
approved