OFFSET
1,1
MATHEMATICA
Module[{x, y}, x /. List@ToRules@Reduce[8^9 + x^2 == y^2 && y > x > 0, Integers]] (* Giovanni Resta, Jan 29 2013 *)
x/.Solve[{8^9+x^2==y^2, x>0, y>0}, {x, y}, Integers] (* Harvey P. Dale, Mar 16 2019 *)
PROG
(Magma) [n: n in [0..2^25] | IsSquare(8^9+n^2)]; // Vincenzo Librandi, Jan 29 2013
(PARI) is(n)=issquare(8^9+n^2) \\ Charles R Greathouse IV, Jan 29 2013
CROSSREFS
KEYWORD
nonn,easy,fini,full
AUTHOR
Jason Earls, Sep 30 2010
STATUS
approved