|
%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
|
