OEIS

L'Encyclopédie en Ligne des Suites de Nombres Entiers®

Implémentation moderne pour codeurs et agents
Exemples : 1, 1, 2, 3, 5, 8 • A000045 • Fibonacci • author:Guglielmetti

A001235

Taxi-cab numbers: sums of 2 cubes in more than 1 way.

DATA

1729, 4104, 13832, 20683, 32832, 39312, 40033, 46683, 64232, 65728, 110656, 110808, 134379, 149389, 165464, 171288, 195841, 216027, 216125, 262656, 314496, 320264, 327763, 373464, 402597, 439101, 443889, 513000, 513856, 515375, 525824, 558441, 593047, 684019, 704977

PYTHON IMPLEMENTATION

No Python implementation recorded in the local database yet.

PROGRAMS

Mathematica

Select[Range[750000],Length[PowersRepresentations[#,2,3]]>1&] (* _Harvey P. Dale_, Nov 25 2014, with correction by _Zak Seidov_, Jul 13 2015 *)

Other Programs

is(n)=my(t);for(k=ceil((n/2)^(1/3)),(n-.4)^(1/3),if(ispower(n-k^3,3),if(t,return(1),t=1)));0 \\ _Charles R Greathouse IV_, Jul 15 2011
T=thueinit(x^3+1,1);
is(n)=my(v=thue(T,n)); sum(i=1,#v,v[i][1]>=0 && v[i][2]>=v[i][1])>1 \\ _Charles R Greathouse IV_, May 09 2016

COMMENTS

EXAMPLES

REFERENCES

CROSSREFERENCES

METADATA