|
%I #5 Mar 30 2012 17:31:16
%S 6,14,21,29,32,34,42,46,51,58,59,62,66,69,70,75,77,78,84,85,86,88,90,
%T 93,96,102,103,110,111,114,115,123,130,133,137,140,149,157,158,160,
%U 162,165,166,173,176,178,179,181,182,183,187,194,201,202,203,205,209,210,211
%N Numbers not the absolute difference between a cube and a square.
%C See A074981 for references.
%H T. D. Noe, <a href="/A110223/b110223.txt">Table of n, a(n) for n=1..5098</a>
%t Complement[ Range[212], Union[ Flatten[ Table[ Select[ Table[ Abs[n^3 - m^2], {m, 0, 10000}], # < 10^3 &], {n, -5000, 5000}]]]]
%Y Cf. A074981. Intersection of A081121 and A054504.
%K nonn,nice
%O 1,1
%A _Robert G. Wilson v_, Jul 16 2005
|
