editing
approved
editing
approved
N. J. A. Sloane et al., <a href="https://oeis.org/wiki/Binary_Quadratic_Forms_and_OEIS">Binary Quadratic Forms and OEIS</a> (Index to related sequences, programs, references)
approved
editing
QuadPrimes[1, 0, 40, 10000] (* see A106856 *) Note: the original QuadPrimes had a bug which could sometimes give wrong answers. This sequence should be checked. - _N. J. A. Sloane_, Jun 04 2014
proposed
approved
editing
proposed
Vincenzo Librandi, <a href="/A107145/b107145.txt">Table of n, a(n) for n = 1..1000</a>
(MAGMA) [ p: p in PrimesUpTo(3000) | p mod 40 in {1, 9} ]; // Vincenzo Librandi, Jul 24 2012
approved
editing
The primes are congruent to {1, 9} (mod 40). - _T. D. Noe (noe(AT)sspectra.com), _, Apr 29 2008
_T. D. Noe (noe(AT)sspectra.com), _, May 13 2005
proposed
approved
f[x_, y_]:=x^2+40*y^2; lst={}; Do[Do[p=f[x, y]; If[PrimeQ[p]&&p>0, AppendTo[lst, p]], {y, -4!, 3*4!}], {x, -4!, 3*4!}]; Take[Union[lst], 90] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 30 2009]
approved
proposed
f[x_, y_]:=x^2+40*y^2; lst={}; Do[Do[p=f[x, y]; If[PrimeQ[p]&&p>0, AppendTo[lst, p]], {y, -4!, 3*4!}], {x, -4!, 3*4!}]; Take[Union[lst], 90] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 30 2009]
QuadPrimes[1, 0, 40, 10000] (* see A106856 *)
nonn,easy,new