This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A165291 #3 Mar 31 2012 12:38:26 %S A165291 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 A165291 41,42,43,45,46,47,48,49,50,51,52,53,54,56,58,59,60,61,62,63,66,67,69, %U A165291 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 A165291 Complement of A165289. %C A165291 Numbers which are impossible values for the difference of a square minus the nearest smaller or equal cube. %t A165291 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 A165291 Cf. A165288, A165289, A165290 %K A165291 nonn %O A165291 1,1 %A A165291 _Vladimir Joseph Stephan Orlovsky_, Sep 13 2009 %E A165291 Definition simplified - _R. J. Mathar_, Sep 21 2009