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