OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
lst={}; Do[s=n^2; If[PrimeQ[p=s-11], AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 27 2008 *)
Select[Range[4, 1000]^2-11, PrimeQ] (* Vincenzo Librandi, Dec 01 2011 *)
PROG
(Magma) [a: n in [4..600] | IsPrime(a) where a is n^2-11]; // Vincenzo Librandi, Dec 01 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ray Chandler, Dec 27 2003
STATUS
approved