OFFSET
1,3
COMMENTS
Discriminant of indefinite binary quadratic form: 229.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1268
Peter Luschny, Binary Quadratic Forms
N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
MATHEMATICA
Reap[For[n=0, n<=58, n++, If[Reduce[x^2+15*x*y-y^2==n, {x, y}, Integers]=!=False, Sow[n]]]][[2, 1]] (* Vincenzo Librandi, Nov 16 2024 *)
sol[t_]:=Solve[x^2+15*x*y-y^2==t, {x, y}, Integers]; Select[Range[0, 256], sol[#]!={}&] (* Vincenzo Librandi, Nov 25 2024 *)
PROG
(C++) See Jagy link.
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jul 14 2019
STATUS
approved