login
A073072
Minimum value of abs(n^2-x^3) x>0.
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
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
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Aug 17 2002
STATUS
approved