cp's OEIS Frontend

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

%I A077743 #18 Aug 22 2024 04:50:14
%S A077743 1,512,343,64,125,216,27,8,729,0,357911,512,4913,0,0,216,389017,0,
%T A077743 59319,0,68921,0,103823,13824,125,0,27,1728,729,0,1331,5832,456533,0,
%U A077743 0,97336,35937,0,493039,0,531441,0,343,2744,0,0,250047,10648,117649,0,132651
%N A077743 Smallest cube ending in n, or 0 if no such cube exists.
%H A077743 Robert Israel, <a href="/A077743/b077743.txt">Table of n, a(n) for n = 1..10000</a>
%F A077743 a(m*10^(3k+1)) = a(m*10^(3k+2)) = 0.
%e A077743 a(1) = 4913 = 17^3, a(10) = 0.
%p A077743 f:= proc(n) local m,r,x;
%p A077743   m:= 10^(ilog10(n)+1);
%p A077743   r:= [msolve(x^3=n,m)];
%p A077743   if r = [] then 0 else min(map(t -> rhs(op(t)),r))^3 fi
%p A077743 end proc:
%p A077743 map(f, [$1..100]); # _Robert Israel_, Mar 05 2023
%Y A077743 Cf. A000578, A077744, A246449.
%K A077743 base,nonn
%O A077743 1,2
%A A077743 _Amarnath Murthy_, Nov 20 2002
%E A077743 More terms from _Sascha Kurz_, Jan 07 2003