|
%I #5 Nov 22 2013 13:24:40
%S 0,0,1,3,0,10,3,21,8,0,15,55,6,78,35,15,0,136,27,171,10,42,99,253,10,
%T 0,143,81,42,406,15,465,64,88,255,35,0,666,323,91,3,820,21,903,55,66,
%U 483,1081,48,0,125,85,39,1378,81,165,28,76,783,1711,15,1830,899,63
%N Least k>=0 such that n^3 + k^2 is a square.
%H T. D. Noe, <a href="/A232267/b232267.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[k = 0; While[! IntegerQ[Sqrt[n^3 + k^2]], k++]; k, {n, 0, 100}] (* _T. D. Noe_, Nov 22 2013 *)
%Y Cf. A000290, A000578, A232175.
%K nonn
%O 0,4
%A _Alex Ratushnyak_, Nov 21 2013
|
