A020895 Cubefree sums of two nonzero cubes.

2, 7, 9, 19, 26, 28, 35, 37, 61, 63, 65, 91, 98, 117, 124, 126, 127, 133, 169, 215, 217, 218, 271, 279, 316, 331, 335, 341, 342, 370, 386, 387, 397, 407, 468, 469, 485, 511, 539, 547, 559, 602, 604, 631, 637, 657, 665, 721, 730, 737, 793, 817

Offset: 1

Author

Steven Finch

Keywords

• nonn

Links

• Jean-François Alcover, Table of n, a(n) for n = 1..501
• Steven R. Finch, On a Generalized Fermat-Wiles Equation [broken link]
• Steven R. Finch, On a Generalized Fermat-Wiles Equation [From the Wayback Machine]

Programs

Mathematica

Reap[Do[If[Max[FactorInteger[n][[All, 2]] ] < 3, If[Reduce[a != 0 && b != 0 && n == a^3 + b^3, {a, b}, Integers] =!= False, Print[n]; Sow[n]]], {n, 2, 1000}]] [[2, 1]] (* Jean-François Alcover, Sep 07 2015 *)

Extensions

Set offset to 1, Joerg Arndt, Sep 07 2015