%I #8 Aug 01 2015 21:37:31
%S 1,25,36,100,625,2500,3600,5776,10000,62500,141376,250000,360000,
%T 390625,577600,1000000,6250000,14137600,14379264,25000000,36000000,
%U 39062500,57760000,87909376,100000000,214651801,625000000,1413760000,2500000000
%N Squares n^2 whose decimal expansion contains n as a substring.
%C 14379264 is in the list because 14379264 = 3792^2 and 3792 is a substring of 14379264.
%e 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
%t 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 *)
%Y Equals A018834^2. Cf. A035383.
%K nonn,base
%O 1,2
%A _Claudio Meller_, Jun 19 2009
%E Edited by _N. J. A. Sloane_, Jul 23 2010