OFFSET
1,2
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, Section D1.
LINKS
MATHEMATICA
(* This naive program is not convenient for more than 4 terms *) max = 300; Clear[k]; k[_] = 0; t = Reap[ Do[ Do[z = x^3 + y^3; If[CoprimeQ[x, y], k[z] = k[z] + 1]; z = -x^3 + y^3; If[CoprimeQ[x, y], k[z] = k[z] + 1]; kz = k[z]; If[kz > 1, Sow[{z, kz}]], {y, x, max}], {x, 1, max}]][[2, 1]]; s = Sort[t]; a[n_] := Select[s, #[[2]] == n &, 1][[1, 1]]; a[1] = 1; Table[a[n], {n, 1, 4}] (* Jean-François Alcover, Jan 11 2013 *)
CROSSREFS
KEYWORD
nonn,nice,hard
AUTHOR
STATUS
approved