OFFSET
1,2
COMMENTS
This sequence is finite and 81 is the last term. If another term were to exist it must contain 3 digits and contract to 49, 64, or 81. No such 3 digit square exists. [Sean A. Irvine, Sep 08 2009]
EXAMPLE
a(5) = 64 since 64 is a perfect square and 4 is also a perfect square.
MATHEMATICA
Select[Range[1000], Sum[Boole[IntegerQ[Sqrt[t=FromDigits[Drop[IntegerDigits[#], i]]]] && t != 0], {i, 0, IntegerLength[#]-1}] == IntegerLength[#] &] (* Stefano Spezia, Jun 27 2025 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Gaurav Kumar, Aug 28 2009
STATUS
approved
