login
A161783
Squares n^2 whose decimal expansion contains n as a substring.
0
1, 25, 36, 100, 625, 2500, 3600, 5776, 10000, 62500, 141376, 250000, 360000, 390625, 577600, 1000000, 6250000, 14137600, 14379264, 25000000, 36000000, 39062500, 57760000, 87909376, 100000000, 214651801, 625000000, 1413760000, 2500000000
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
Equals A018834^2. Cf. A035383.
Sequence in context: A162305 A029773 A029781 * A066217 A265211 A205644
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 19 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jul 23 2010
STATUS
approved