A135658 Nonprimes of the form 4x^2-4xy+7y^2.
4, 15, 16, 24, 28, 36, 40, 55, 60, 63, 64, 87, 88, 96, 100, 112, 124, 132, 135, 144, 159, 160, 168, 175, 196, 216, 220, 231, 232, 240, 247
Offset: 1
Keywords
Programs
-
Mathematica
Do[Do[w = 4x^2 - 4x y + 7y^2; If[w > 0, If[PrimeQ[w],[null], AppendTo[a, w]]], {x, 0, 100}], {y, 0, 100}]; Union[a]
Comments