A073072 Minimum value of abs(n^2-x^3) x>0.

0, 3, 1, 8, 2, 9, 15, 0, 17, 25, 4, 19, 44, 20, 9, 40, 54, 19, 18, 57, 71, 28, 17, 64, 104, 53, 0, 55, 112, 100, 39, 24, 89, 156, 106, 35, 38, 113, 190, 128, 47, 36, 121, 208, 172, 81, 12, 107, 204, 244, 143, 40, 65, 172, 281, 239, 126, 11, 106, 225, 346, 252, 127, 0, 129

Offset: 1

Author

Benoit Cloitre, Aug 17 2002

Keywords

• easy
• nonn

Crossrefs

Cf. A002938.

Programs

Mathematica

Table[Min[n^2-Floor[(n^2)^(1/3)]^3,(Floor[(n^2)^(1/3)]+1)^3-n^2],{n,100}] (* Vladimir Joseph Stephan Orlovsky, Feb 01 2012 *)

PARI

a(n)=vecmin(vector(ceil(n^(2/3)),i,abs(n^2-i^3)))

Formula

a(n^3) = 0.

a(n) = abs(A077111(n)). - R. J. Mathar, May 01 2008