|
Search: id:A106898
|
|
|
| A106898 |
|
Primes of the form 2x^2+xy+6y^2, with x and y any integer. |
|
+0
1
|
|
| 2, 7, 53, 59, 61, 89, 97, 131, 157, 173, 263, 283, 331, 337, 353, 379, 431, 479, 491, 521, 541, 601, 613, 643, 647, 683, 709, 719, 739, 827, 883, 911, 941, 967, 991, 1021, 1087, 1093, 1117, 1129, 1181, 1217, 1229, 1231, 1367, 1399, 1427, 1489, 1493
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Discriminant=-47. See A106856 for more information.
|
|
MATHEMATICA
|
f[x_, y_]:=2*x^2+x*y+6*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 04 2009]
Union[QuadPrimes[2, 1, 6, 10000], QuadPrimes[2, -1, 6, 10000]] (* see A106856 *)
|
|
CROSSREFS
|
Sequence in context: A046662 A118191 A005588 this_sequence A106899 A119772 A104084
Adjacent sequences: A106895 A106896 A106897 this_sequence A106899 A106900 A106901
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), May 09 2005
|
|
|
Search completed in 0.002 seconds
|
