A165289 Nonnegative integers of the form m^2 - floor(m^(2/3))^3 where m is a positive integer.

0, 1, 3, 8, 9, 12, 15, 17, 18, 19, 22, 24, 30, 36, 37, 38, 40, 44, 55, 57, 64, 65, 68, 71, 73, 79, 80, 89, 97, 98, 100, 101, 106, 107, 108, 112, 113, 119, 121, 128, 129, 138, 141, 145, 148, 151, 154, 156, 161, 163, 164, 168, 169, 171, 172, 190, 196, 197, 198, 204, 208

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Sep 13 2009

Keywords

• nonn

Comments

The positive terms form a subsequence of A087286. Some terms of A087286 are missing here, the smallest such number being 3781 = (6^3)^2 - (6^2-1)^3. [From Max Alekseyev, Jun 19 2011]

Crossrefs

Cf. A087286, A165288.

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]

Extensions

Minor edits by N. J. A. Sloane, Oct 24 2009

Definition corrected by Max Alekseyev, Jun 19 2011