OFFSET
1,2
COMMENTS
14379264 is in the list because 14379264 = 3792^2 and 3792 is a substring of 14379264.
EXAMPLE
1 contains its square root (1); 25 contains its square root (5); 3600 contains -- but does not end with -- its square root (60). - Dominick Cancilla, Jul 20 2010
MATHEMATICA
fQ[n_] := StringPosition[ IntegerString[n^2], IntegerString@n] != {}; lst = {}; k = 1; While[k < 50001, If[ fQ@k, AppendTo[lst, k^2]]; k++ ]; lst (* Robert G. Wilson v, Jul 23 2010 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 19 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jul 23 2010
STATUS
approved