A165291 Complement of A165289.
2, 4, 5, 6, 7, 10, 11, 13, 14, 16, 20, 21, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 39, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 56, 58, 59, 60, 61, 62, 63, 66, 67, 69, 70, 72, 74, 75, 76, 77, 78, 81, 82, 83, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 99, 102
Offset: 1
Keywords
Programs
-
Mathematica
lst={};Do[a=(x=n^2)-(y=Floor[(n^2)^(1/3)]^3);If[a<=416,AppendTo[lst,a]], {n,8!}];Take[Union@lst,100]; lst1={};Do[AppendTo[lst1,n],{n,416}]; lst1; Complement[lst1,lst]
Extensions
Definition simplified - R. J. Mathar, Sep 21 2009
Comments