OFFSET
1,1
EXAMPLE
3364 is a member as 3364 and 36 both are squares.
MATHEMATICA
nzsqr[n_] := n>0&&IntegerQ[Sqrt[n]]; Select[Range[10, 2000], nzsqr[FromDigits[Drop[Drop[IntegerDigits[ #^2], 1], -1]]]&]^2
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 06 2002
EXTENSIONS
Edited by Dean Hickerson, Apr 09 2002
Offset changed by Sean A. Irvine, May 14 2024
STATUS
approved