|
%I #2 Mar 31 2012 10:22:06
%S 4,13,14,28,32,36,49,62,63,76,104,108,109,112,140,148,158,171,172,185,
%T 193,224,234,244,252,256,260,288,301,302,351,364,365,378,392,427,433,
%U 468,494,496,500,504,508,532,536,589,603,608,652,665,666,676,679,728
%N Numbers of the form 3x y^2+x^3 (where x,y are positive integers).
%t a = {}; Do[Do[w = 3x y^2 + x^3; If[(w > 0) && w < 3000, AppendTo[a, w]], {x, 1, 1000}], {y, 1, 1000}]; Union[a]
%Y Cf. A135781, A135782.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 29 2007
|
