|
%I #6 Nov 27 2018 09:33:48
%S 2052,6916,16416,19656,32116,32864,55328,55404,82732,85644,131328,
%T 157248,160132,186732,256500,256928,262912,402844,442624,443232,
%U 477508,497344,504868,508248,530712,537516,546364,597556,661856,665532,685152,703836,783364,804636
%N Numbers that can be written as the average of two positive cubes in more than one way.
%C The first term with 3 representations is 59912244, which is equal to (11^3 + 493^3)/2, (90^3 + 492^3)/2, and (346^3 + 428^3)/2.
%e 2052 is a term because it is equal to (2^3 + 16^3)/2 and (9^3 + 15^3)/2.
%t Select[Range[10^5], Length[PowersRepresentations[2 #, 2, 3]] > 1 &]
%Y Cf. A268319, A267477.
%K nonn
%O 1,1
%A _Giovanni Resta_, Nov 26 2018
|
