A135783 - OEIS

%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