A025399 Numbers that are the sum of 3 distinct positive cubes in exactly 1 way.

36, 73, 92, 99, 134, 153, 160, 190, 197, 216, 225, 244, 251, 281, 288, 307, 342, 349, 352, 368, 371, 378, 405, 408, 415, 434, 469, 476, 495, 521, 532, 540, 547, 560, 567, 577, 584, 586, 603, 623, 638, 645, 664, 684, 701, 729, 736, 738, 755, 757, 764, 792, 794, 801, 820

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A025395 (not necessarily distinct), A024973.

Programs

Mathematica

Reap[For[n = 1, n <= 1000, n++, pr = Select[ PowersRepresentations[n, 3, 3], Times @@ # != 0 && Length[#] == Length[Union[#]] &]; If[pr != {} && Length[pr] == 1, Print[n, pr]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 31 2013 *)

Formula

A024975 MINUS A024974. - R. J. Mathar, May 28 2008

{n: A025469(n) = 1}. - R. J. Mathar, Jun 15 2018