A077743 - OEIS

%I #18 Aug 22 2024 04:50:14

%S 1,512,343,64,125,216,27,8,729,0,357911,512,4913,0,0,216,389017,0,

%T 59319,0,68921,0,103823,13824,125,0,27,1728,729,0,1331,5832,456533,0,

%U 0,97336,35937,0,493039,0,531441,0,343,2744,0,0,250047,10648,117649,0,132651

%N Smallest cube ending in n, or 0 if no such cube exists.

%H Robert Israel, <a href="/A077743/b077743.txt">Table of n, a(n) for n = 1..10000</a>

%F a(m*10^(3k+1)) = a(m*10^(3k+2)) = 0.

%e a(1) = 4913 = 17^3, a(10) = 0.

%p f:= proc(n) local m,r,x;

%p   m:= 10^(ilog10(n)+1);

%p   r:= [msolve(x^3=n,m)];

%p   if r = [] then 0 else min(map(t -> rhs(op(t)),r))^3 fi

%p end proc:

%p map(f, [$1..100]); # _Robert Israel_, Mar 05 2023

%Y Cf. A000578, A077744, A246449.

%K base,nonn

%O 1,2

%A _Amarnath Murthy_, Nov 20 2002

%E More terms from _Sascha Kurz_, Jan 07 2003