A138355 Primes of the form k^2 + 10.
11, 19, 59, 131, 179, 739, 971, 1531, 2411, 2819, 3259, 3491, 5051, 5939, 6571, 6899, 8291, 9419, 9811, 10211, 15139, 16139, 16651, 19891, 22811, 24659, 25931, 28571, 29251, 32051, 32771, 35731, 42859, 43691, 44531, 49739, 51539, 56179, 57131
Offset: 1
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+10]; // Vincenzo Librandi, Nov 24 2010
-
Mathematica
Intersection[Table[n^2+10,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... For[i=10,i<=10,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];Print["n^2+",i,",",a];i++ ] Select[Range[250]^2+10,PrimeQ] (* Harvey P. Dale, Nov 13 2011 *)
-
PARI
list(lim)=my(v=List(),t); forstep(k=1,sqrtint(lim\1-10),2, if(isprime(t=k^2+10), listput(v,t))); Vec(v) \\ Charles R Greathouse IV, Nov 06 2024
Formula
a(n) >> n^2 log n. - Charles R Greathouse IV, Nov 06 2024
Extensions
More terms from Vincenzo Librandi, Apr 28 2010