A135794 Numbers of the form x^5 + 10*x^3*y^2 + 5*x*y^4 (where x,y are integers).
16, 121, 122, 496, 512, 528, 1441, 1562, 1563, 1684, 3376, 3872, 3888, 3904, 4400, 6841, 8282, 8403, 8404, 8525, 9966, 12496, 15872, 16368, 16384, 16400, 16896, 20272, 21121, 27962, 29403, 29524, 29525, 29646, 31087, 33616, 37928, 46112
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a = {}; Do[Do[w = x^5 + 10x^3 y^2 + 5x y^4; If[w < 100000, AppendTo[a, w]], {x, 1, 1000}], {y, 1, 1000}]; Union[a]
Comments