login
Squares n^2 whose decimal expansion contains n as a substring.
0

%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