A135783 Numbers of the form 3x y^2+x^3 (where x,y are positive integers).

4, 13, 14, 28, 32, 36, 49, 62, 63, 76, 104, 108, 109, 112, 140, 148, 158, 171, 172, 185, 193, 224, 234, 244, 252, 256, 260, 288, 301, 302, 351, 364, 365, 378, 392, 427, 433, 468, 494, 496, 500, 504, 508, 532, 536, 589, 603, 608, 652, 665, 666, 676, 679, 728

Offset

1,1

Links

Table of n, a(n) for n=1..54.

Mathematica

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]

Crossrefs

Cf. A135781, A135782.

Sequence in context: A239256 A043049 A135465 * A135406 A066825 A014563

Adjacent sequences: A135780 A135781 A135782 * A135784 A135785 A135786

Keyword

nonn

Author

Artur Jasinski, Nov 29 2007

Status

approved