OFFSET
1,1
LINKS
N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
MATHEMATICA
a = {}; w = 20; 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*)
With[{nn=50}, Take[Select[Union[Flatten[Table[x^2+20 x y +y^2, {x, 0, 2nn}, {y, 0, 2nn}]]], PrimeQ], nn]] (* Harvey P. Dale, Nov 02 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 24 2008
STATUS
approved