|
%I #8 Dec 05 2013 19:55:33
%S 1,8,64,125,216,1000,8000,9261,15625,64000,85184,262144,729000,
%T 1000000,2146689,4096000,8000000,15625000,46656000,64000000,117649000,
%U 125000000,216000000,262144000,531441000,1000000000,1771561000,2985984000,4826809000
%N Cubes from which deleting a suitable digit leaves a square.
%H Jayanta Basu, <a href="/A074102/b074102.txt">Table of n, a(n) for n = 0..100</a>
%t drQ[n_] := Or @@ IntegerQ /@ Sqrt[Table[FromDigits[Drop[IntegerDigits[n], {k}]], {k, IntegerLength[n]}]]; Select[Range[1700]^3, drQ] (* _Jayanta Basu_, Jul 31 2013 *)
%K nonn,base
%O 0,2
%A _Amarnath Murthy_, Aug 21 2002
%E Corrected and extended by _Robert Gerbicz_, Aug 27 2002
%E Two more terms from _Jayanta Basu_, Jul 31 2013
|
