A243185 Nonnegative numbers of the form -2*x^2+3*x*y+3*y^2.
0, 1, 3, 4, 9, 12, 16, 22, 25, 27, 31, 34, 36, 37, 48, 49, 58, 64, 66, 67, 75, 81, 82, 88, 93, 97, 100, 102, 103, 108, 111, 121, 124, 136, 144, 147, 148, 157, 163, 166, 169, 174, 181, 187, 192, 196, 198, 199, 201, 202, 214, 223, 225, 229, 232, 243, 246, 256, 262, 264, 268, 279, 289, 291, 298, 300
Offset: 1
Keywords
Links
- N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
Programs
-
Mathematica
Reap[For[n = 0, n <= 300, n++, If[Reduce[-2*x^2 + 3*x*y + 3*y^2 == n, {x, y}, Integers] =!= False, Sow[n]]]][[2, 1]] (* In older versions, this program used to miss out 0 *)
Comments