%I #2 Mar 31 2012 10:22:06
%S 2,7,16,18,26,52,54,56,65,97,110,128,143,144,154,189,198,208,250,259,
%T 286,296,297,322,362,416,432,448,486,488,495,506,520,621,686,702,730,
%U 738,740,767,776,782,793,803,828,875,880,925,970,990,1024,1034,1144
%N Positive numbers of the form x^3-3x y^2 (where x,y are positive integers).
%t a = {}; Do[Do[w = x^3 - 3x y^2; If[(w > 0) && w < 3000, AppendTo[a, w]], {x, 1, 1000}], {y, 1, 1000}]; Union[a]
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 29 2007
|