OFFSET
1,2
LINKS
Jayanta Basu, Table of n, a(n) for n = 1..100
MATHEMATICA
drQ[n_] := Or @@ IntegerQ /@ Sqrt[Table[FromDigits[Drop[IntegerDigits[n], {k}]], {k, IntegerLength[n]}]]; Select[Range[1700]^3, drQ] (* Jayanta Basu, Jul 31 2013 *)
PROG
(PARI) \\ here isok(k) tests if removing one digit leaves a square.
isok(k)={my(d=digits(k)); for(i=1, #d, if(issquare(fromdigits(concat(d[1..i-1], d[i+1..#d]))), return(1))); 0}
lista(n)={my(L=List(), k=0); while(#L<n, k++; my(t=k^3); if(isok(t), listput(L, t))); Vec(L)} \\ Andrew Howroyd, Sep 19 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Aug 21 2002
EXTENSIONS
Corrected and extended by Robert Gerbicz, Aug 27 2002
Two more terms from Jayanta Basu, Jul 31 2013
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved