A138362 Primes of the form k^2 + 11.
11, 47, 587, 911, 1307, 2927, 8111, 9227, 13007, 14411, 15887, 20747, 22511, 32411, 34607, 41627, 44111, 54767, 60527, 72911, 90011, 104987, 133967, 152111, 197147, 207947, 236207, 254027, 260111, 318107, 404507, 427727, 443567, 467867, 476111
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ a: n in [0..900] | IsPrime(a) where a is n^2+11] // Vincenzo Librandi, Nov 24 2010
-
Mathematica
Intersection[Table[n^2+11,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... For[i=11,i<=11,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];Print["n^2+",i,",",a];i++ ] Select[Range[0,700]^2+11,PrimeQ] (* Harvey P. Dale, Apr 27 2017 *)
Extensions
More terms from Vincenzo Librandi, Apr 28 2010