OFFSET
1,2
MATHEMATICA
Select[Range[600], Reduce[#*(2*#-1) == x*(2*x-1) - y*(2*y-1) && x > 0 && y > 0, {x, y}, Integers] == False &]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Dec 06 2011
STATUS
approved