OFFSET
1,1
REFERENCES
L. J. Mordell, Diophantine Equations, Ac. Press, p. 246.
MATHEMATICA
r[x_] := Reduce[y > 0 && y^2 == x^3 + 17, y, Integers]; y /. ToRules /@ Select[Table[r[x], {x, -2, 10000}], # =!= False & ] (* Jean-François Alcover, Sep 07 2011 *)
PROG
(Magma) Sort([ Abs(p[2]) : p in IntegralPoints(EllipticCurve([0, 17])) ]); // Sergei Haller (sergei(AT)sergei-haller.de), Dec 21 2006
(SageMath) [i[1] for i in EllipticCurve([0, 17]).integral_points()] # Seiichi Manyama, Aug 25 2019
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved