OFFSET
1,1
COMMENTS
REFERENCES
H. Cohen, Number Theory. I, Tools and Diophantine Equations, Springer-Verlag, 2007, p. 378.
LINKS
Fernando Rodriguez Villegas, Don Zagier, Which primes are sums of two cubes?, CMS Conference Proceedings 15 (1995), pp. 295-306.
FORMULA
MATHEMATICA
(* To speed up computation, a few terms are pre-computed *) nmax = 521; xmax = 360; preComputed = {127, 271, 379}; solQ[p_] := Do[ If[ IntegerQ[z = Root[-x^3 - y^3 + p*#^3 & , 1]], Print[p, {x, y, z}]; Return[True]], {x, 2, xmax}, {y, x, xmax}]; A166246 = Union[ preComputed, Select[ Prime[ Range[ PrimePi[nmax]]], Mod[#, 9] == 4 || Mod[#, 9] == 7 || Mod[#, 9] == 8 || solQ[#] === True & ]](* Jean-François Alcover, Apr 04 2012, after given formula *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Oct 10 2009
STATUS
approved