A025409 Numbers that are the sum of 4 distinct positive cubes in exactly 2 ways.

1036, 1134, 1352, 1367, 1430, 1465, 1484, 1547, 1582, 1638, 1709, 1736, 1764, 1800, 1801, 1820, 1862, 1863, 1881, 1918, 1953, 1972, 2009, 2070, 2080, 2099, 2136, 2197, 2268, 2288, 2305, 2331, 2340, 2422, 2464, 2483, 2485, 2520, 2548, 2584, 2799, 2800

Offset

1,1

Links

Jean-François Alcover, Table of n, a(n) for n = 1..439

Example

1036 = 1^3 + 2^3 + 3^3 + 10^3 = 3^3 + 4^3 + 6^3 + 9^3.

Mathematica

Reap[For[n = 100, n <= 10000, n++, r = Reduce[0 < w < x < y < z && n == w^3 + x^3 + y^3 + z^3, {w, x, y, z}, Integers]; If[r =!= False, If[Length[r] == 2, Print[n]; Sow[n]]]]][[2, 1]] (* Jean-François Alcover, Nov 30 2016 *)

Crossrefs

Sequence in context: A373407 A163558 A025412 * A043388 A184210 A163559

Adjacent sequences: A025406 A025407 A025408 * A025410 A025411 A025412

Keyword

nonn

Author

David W. Wilson

Status

approved