|
%I #16 Jul 31 2021 23:28:32
%S 4,11,18,25,30,32,37,44,51,56,63,67,70,74,81,82,88,89,93,100,107,108,
%T 119,126,128,130,135,137,142,144,145,149,154,156,161,163,168,180,182,
%U 187,191,193,198,200,205,206,217,224,226,233,240,243,245,254,256,261,266,271,280
%N Numbers that are the sum of 4 positive cubes in exactly 1 way.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubicNumber.html">Cubic Number.</a>
%F {n: A025457(n) = 1}. - _R. J. Mathar_, Jun 15 2018
%t 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 *)
%Y Cf. A003327, A025357, A025395, A025399, A025404, A048926, A344189.
%K nonn
%O 1,1
%A _David W. Wilson_
|
