A138375 Primes of the form k^2 + 13.

13, 17, 29, 113, 157, 269, 337, 797, 1613, 1777, 1949, 2129, 3613, 4637, 5197, 6737, 7069, 7757, 8849, 11677, 12113, 13009, 13469, 14897, 15889, 20177, 20749, 23117, 24977

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..4500

Mathematica

Intersection[Table[n^2+13, {n, 0, 10^2}], Prime[Range[9*10^3]]] ...or... For[i=13, i<=13, a={}; Do[If[PrimeQ[n^2+i], AppendTo[a, n^2+i]], {n, 0, 100}]; Print["n^2+", i, ", ", a]; i++ ]
Select[Table[n^2+13, {n, 0, 7000}], PrimeQ] (* Vincenzo Librandi, Nov 30 2011 *)

Prog

(Magma) [a: n in [0..700] | IsPrime(a) where a is n^2+13]; // Vincenzo Librandi, Nov 30 2011

Crossrefs

Sequence in context: A033210 A274506 A107159 * A180526 A161401 A225035

Adjacent sequences: A138372 A138373 A138374 * A138376 A138377 A138378

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 07 2008

Status

approved