|
|
A139511
|
|
Primes of the form x^2 + 31x*y + y^2 for x and y nonnegative.
|
|
1
|
|
|
67, 103, 181, 199, 223, 313, 397, 463, 487, 499, 631, 643, 661, 691, 709, 883, 991, 1021, 1039, 1093, 1153, 1213, 1321, 1483, 1543, 1567, 1741, 1747, 1753, 1831, 1879, 2017, 2029, 2083, 2113, 2137, 2179, 2203, 2269, 2311, 2377, 2539, 2557, 2677, 2731
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; w = 31; k = 1; Do[Do[If[PrimeQ[n^2 + w*n*m + k*m^2], AppendTo[a, n^2 + w*n*m + k*m^2]], {n, m, 400}], {m, 1, 400}]; Union[a] (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A139489, A007645, A068228, A007519, A033212, A033212, A107152, A107008, A033215, A107145, A139490, A139491.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|