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

Links

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

Formula

a(n^3) = 0.

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

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 *)

Prog

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

Crossrefs

Cf. A002938.

Sequence in context: A242072 A248584 A077111 * A273927 A293975 A185452

Adjacent sequences: A073069 A073070 A073071 * A073073 A073074 A073075

Keyword

easy,nonn

Author

Benoit Cloitre, Aug 17 2002

Status

approved