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,1

Comments

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

Links

Table of n, a(n) for n=1..71.

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]

Crossrefs

Cf. A165288, A165289, A165290

Sequence in context: A217445 A007238 A083875 * A080762 A047570 A129132

Adjacent sequences: A165288 A165289 A165290 * A165292 A165293 A165294

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 13 2009

Extensions

Definition simplified - R. J. Mathar, Sep 21 2009

Status

approved