A165291 - OEIS

%I #3 Mar 31 2012 12:38:26

%S 2,4,5,6,7,10,11,13,14,16,20,21,23,25,26,27,28,29,31,32,33,34,35,39,

%T 41,42,43,45,46,47,48,49,50,51,52,53,54,56,58,59,60,61,62,63,66,67,69,

%U 70,72,74,75,76,77,78,81,82,83,84,85,86,87,88,90,91,92,93,94,95,96,99,102

%N Complement of A165289.

%C Numbers which are impossible values for the difference of a square minus the nearest smaller or equal cube.

%t 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]

%Y Cf. A165288, A165289, A165290

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Sep 13 2009

%E Definition simplified - _R. J. Mathar_, Sep 21 2009