A135796 Numbers of the form 4x^3y+4y x^3 (where x,y are positive integers).
8, 40, 120, 128, 272, 312, 520, 640, 648, 888, 1160, 1200, 1400, 1920, 2040, 2048, 2080, 2952, 2968, 3240, 3280, 4040, 4352, 4872, 4992, 5000, 5368, 6120, 6960, 7008, 7280, 7320, 8320, 8840, 9720
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a = {}; Do[Do[w = 4x^3y + 4x y^3; If[w < 10000, AppendTo[a, w]], {x, y, 1000}], {y, 1, 1000}]; Union[a] (*Artur Jasinski*)
Comments