A025403 Numbers that are the sum of 4 positive cubes in exactly 1 way.

4, 11, 18, 25, 30, 32, 37, 44, 51, 56, 63, 67, 70, 74, 81, 82, 88, 89, 93, 100, 107, 108, 119, 126, 128, 130, 135, 137, 142, 144, 145, 149, 154, 156, 161, 163, 168, 180, 182, 187, 191, 193, 198, 200, 205, 206, 217, 224, 226, 233, 240, 243, 245, 254, 256, 261, 266, 271, 280

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Eric Weisstein's World of Mathematics, Cubic Number.

Crossrefs

Cf. A003327, A025357, A025395, A025399, A025404, A048926, A344189.

Programs

Mathematica

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

Formula

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