A135781 Positive numbers of the form x^3-3x y^2 (where x,y are positive integers).

2, 7, 16, 18, 26, 52, 54, 56, 65, 97, 110, 128, 143, 144, 154, 189, 198, 208, 250, 259, 286, 296, 297, 322, 362, 416, 432, 448, 486, 488, 495, 506, 520, 621, 686, 702, 730, 738, 740, 767, 776, 782, 793, 803, 828, 875, 880, 925, 970, 990, 1024, 1034, 1144

Offset

1,1

Links

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

Mathematica

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]

Crossrefs

Sequence in context: A262016 A129666 A288675 * A233580 A225323 A167236

Adjacent sequences: A135778 A135779 A135780 * A135782 A135783 A135784

Keyword

nonn

Author

Artur Jasinski, Nov 29 2007

Status

approved