|
%I #3 May 01 2013 21:08:57
%S 1,7,16,18,19,23,28,31,32,47,60,63,74,99,100,122,124,143,144,162,166,
%T 179,183,194,207,209,218,227,234,239,240,242,243,250,295,316,341,348,
%U 368,380,399,412,421,423,448,485,495,524,535,540,551,583,608,624,625
%N Numbers of the form m^5-s^2, m>=1, s >= 0.
%C For values m see A177764.
%C For values s see A177765.
%C For numbers that have more than one representation see A177766.
%t aa = {}; bb = {}; cc = {}; Do[Do[If[((N[Sqrt[x^5 - n], 300] - Round[Sqrt[x^5 - n]])^2 < 10^-300) && (Im[Round[Sqrt[x^5 - n]]] == 0), AppendTo[aa, n]; AppendTo[bb, x]; AppendTo[cc, Round[Sqrt[x^5 - n]]]; Print[{n}, {x}, {Round[Sqrt[x^5 - n]]}]], {x, 1, 1000}], {n, 1, 1000}]; Union[aa]
%Y Cf. A152412, A177760, A177761, A177764, A177765.
%K nonn
%O 1,2
%A _Artur Jasinski_, May 13 2010
%E Edited by _N. J. A. Sloane_, May 15 2010
|
