A139827 Primes of the form 2x^2 + 2xy + 17y^2.
2, 17, 29, 41, 101, 149, 173, 197, 233, 281, 293, 461, 557, 569, 593, 677, 701, 761, 809, 821, 857, 941, 953, 1097, 1217, 1229, 1289, 1361, 1481, 1493, 1553, 1601, 1613, 1733, 1877, 1889, 1913, 1949, 1997, 2081, 2129, 2141, 2153, 2213, 2273, 2309, 2393, 2417
Offset: 1
References
- David A. Cox, Primes of the Form x^2 + n y^2, Wiley, 1989.
Links
- Ray Chandler, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)
- N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
Crossrefs
Cf. A139643, A139841-A139843 (d=-408), A139644, A139844-A139850 (d=-420), A139645, A139851-A139853 (d=-448), A139502, A139854-A139860 (d=-480), A139646, A139861-A139863 (d=-520), A139647, A139864-A139866 (d=-532), A139648, A139867-A139873 (d=-660), A139506, A139874-A139880 (d=-672), A139649, A139881-A139883 (d=-708), A139650, A139884-A139886 (d=-760), A139651, A139887-A139893 (d=-840), A139652, A139894-A139896 (d=-928), A139502, A139855, A139857, A139858, A139897-A139899, A139902 (d=-960).
Cf. also A139653, A139904-A139906 (d=-1012), A139654, A139907-A139913 (d=-1092), A139655, A139914-A139920 (d=-1120), A139656, A139921-A139927 (d=-1248), A139657, A139928-A139934 (d=-1320), A139658, A139935-A139941 (d=-1380), A139659, A139942-A139948 (d=-1428), A139660, A139949-A139955 (d=-1540), A139661, A139956-A139962 (d=-1632), A139662, A139963-A139969 (d=-1848), A139663, A139970-A139976 (d=-2080), A139664, A139977-A139983 (d=-3040), A139665, A139984-A139998 (d=-3360), A139666, A139999-A140013 (d=-5280), A139667, A140014-A140028 (d=-5460), A139668, A140029-A140043 (d=-7392).
For a more complete list of sequences giving numbers and/or primes represented by binary quadratic forms, see the "Binary Quadratic Forms and OEIS" link.
Programs
-
Magma
[ p: p in PrimesUpTo(2500) | p mod 132 in {2, 17, 29, 41, 65, 101}]; // Vincenzo Librandi, Jul 29 2012
-
Mathematica
QuadPrimes2[2, -2, 17, 2500] (* see A106856 *) t = Table[{2, 17, 29, 41, 65, 101} + 132*n, {n, 0, 50}]; Select[Flatten[t], PrimeQ] (* T. D. Noe, Jun 21 2012 *)
-
PARI
v=[2, 17, 29, 41, 65, 101]; select(p->setsearch(v,p%132),primes(100)) \\ Charles R Greathouse IV, Jan 08 2013
Formula
The primes are congruent to {2, 17, 29, 41, 65, 101} (mod 132).
Comments