|
|
A138375
|
|
Primes of the form k^2 + 13.
|
|
6
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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++ ]
|
|
PROG
|
(Magma) [a: n in [0..700] | IsPrime(a) where a is n^2+13]; // Vincenzo Librandi, Nov 30 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|