OFFSET
1,2
COMMENTS
Discriminant = 48.
LINKS
N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
MATHEMATICA
Reap[For[n = 1, n < 1000, n++, r = Reduce[x^2 + 6 x y - 3 y^2 == n, {x, y}, Integers]; If[r =!= False, If[AnyTrue[{x, y} /. {ToRules[r /. C[1] -> 0]}, CoprimeQ @@ # &], Sow[n]]]]][[2, 1]] (* Jean-François Alcover, Oct 31 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jun 25 2014
STATUS
approved