OFFSET
1,1
COMMENTS
A245096 gives the numbers whose squares become cubes if one of their digit is deleted.
Numbers with single-digit cubes are not included. - Davin Park, Dec 30 2016
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000 (first 100 terms from Paolo P. Lava)
EXAMPLE
21^3 = 9261 and sqrt(961) = 31.
44^3 = 85184 and sqrt(5184) = 72.
45625^3 = 94974853515625 and sqrt(9474853515625) = 3078125.
MAPLE
with(numtheory): P:=proc(q) local a, k, n;
for n from 1 to q do a:=n^3; for k from 1 to ilog10(a) do
if type(sqrt(trunc(a/10^(k+1))*10^k+(a mod 10^k)), integer)
then print(n); break; fi; od; od; end: P(10^9);
MATHEMATICA
f[n_] := !MissingQ@SelectFirst[Delete[IntegerDigits[n^3], #] & /@ Range[IntegerLength[n^3]], IntegerQ@Sqrt@FromDigits@# &];
Select[Range[4, 1000], f] (* Davin Park, Dec 30 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Nov 07 2014
STATUS
approved