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

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.

Links

Table of n, a(n) for n=1..29.

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

Adjacent sequences: A161780 A161781 A161782 * A161784 A161785 A161786

Keyword

nonn,base

Author

Claudio Meller, Jun 19 2009

Extensions

Edited by N. J. A. Sloane, Jul 23 2010

Status

approved