

A179145


Numbers n such that Mordell's equation y^2 = x^3 + n has exactly 1 integral solution.


24



27, 125, 216, 1728, 2197, 3375, 4913, 6859, 8000, 13824, 19683, 24389, 27000, 29791, 59319, 68921, 74088, 79507, 91125, 103823, 110592, 132651, 140608, 148877, 157464, 166375, 195112, 205379, 216000, 226981, 238328, 287496, 300763, 314432
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



MATHEMATICA

(* Assuming every term is a cube *) xmax = 2000; r[n_] := Reap[ Do[ rpos = Reduce[y^2 == x^3 + n, y, Integers]; If[rpos =!= False, Sow[rpos]]; rneg = Reduce[y^2 == (x)^3 + n, y, Integers]; If[rneg =!= False, Sow[rneg]], {x, 1, xmax}]]; ok[n_] := Which[ rn = r[n]; rn[[2]] === {}, False, Length[rn[[2]]] > 1, False, ! FreeQ[rn[[2, 1]], Or], False, True, True]; ok[n_ /; !IntegerQ[n^(1/3)]] = False; ok[1]=False; A179145 = Reap[ Do[ If[ok[n], Print[n]; Sow[n]], {n, 1, 320000}]][[2, 1]] (* JeanFrançois Alcover, Apr 12 2012 *)


CROSSREFS

Complement of A356703 among the positive cubes.


KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



