|
%I #10 Oct 24 2018 17:52:09
%S 81,5041,5184,10000,46225,59049,77841,83521,322624,331776,640000,
%T 685584,707281,1265625,2958400,3157729,3418801,3674889,3779136,
%U 4157521,4981824,5345344,5602689,5736025,7290000,9150625,9529569,10725625,12257001,14776336,15904144
%N Squares of the form x^3 + 2*y^3, with x, y > 0.
%C Subsequence of A219726.
%H Donovan Johnson, <a href="/A219728/b219728.txt">Table of n, a(n) for n = 1..1000</a>
%e 81: (x = 3, y = 3), 5041: (x = 17, y = 4).
%t With[{nn=300},Select[Flatten[Table[x^3+2y^3,{x,nn},{y,nn}]],IntegerQ[ Sqrt[#]]&]//Union] (* _Harvey P. Dale_, Oct 24 2018 *)
%Y Cf. A173587, A219722, A219725, A219726.
%K nonn
%O 1,1
%A _Zak Seidov_, Nov 26 2012
|
