|
Search: id:A107010
|
|
|
| A107010 |
|
Primes of the form 5x^2+xy+5y^2, with x and y any integer. |
|
+0
1
|
|
| 5, 11, 23, 47, 53, 59, 71, 89, 113, 137, 179, 191, 251, 257, 269, 311, 317, 353, 383, 389, 401, 419, 443, 449, 467, 509, 521, 587, 599, 617, 641, 647, 653, 683, 719, 773, 797, 839, 863, 881, 911, 929, 947, 971, 977, 983, 1013, 1049, 1061, 1103, 1109
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Discriminant=-99. See A106856 for more information.
|
|
MATHEMATICA
|
f[x_, y_]:=5*x^2+x*y+5*y^2; lst={}; Do[Do[p=f[x, y]; If[PrimeQ[p], AppendTo[lst, p]], {y, -5!, 6!}], {x, -5!, 6!}]; Take[Union[lst], 5! ] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 06 2009]
Union[QuadPrimes[5, 1, 5, 10000], QuadPrimes[5, -1, 5, 10000]] (* see A106856 *)
|
|
CROSSREFS
|
Sequence in context: A046628 A118439 A156109 this_sequence A052940 A102444 A132177
Adjacent sequences: A107007 A107008 A107009 this_sequence A107011 A107012 A107013
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), May 09 2005
|
|
|
Search completed in 0.002 seconds
|
