A077440 Squares and their roots having square decimal digits.

0, 1, 100, 10000, 1000000, 1100401, 100000000, 110040100, 10000000000, 10100049001, 11004010000, 1000000000000, 1010004900100, 1100401000000, 100000000000000, 100100004990001, 101000490010000, 110040100000000

Offset

1,3

Links

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

Example

a(6) = 1100401 = 1049^2; A019544(8)=441 is not a term, as 441=21^2 and 2 is not a square digit.

Mathematica

a = {}; Do[d = FromDigits[ ReplaceAll[ IntegerDigits[n, 4], {3 -> 9, 2 -> 4}]]; If[ Union[ Join[ IntegerDigits[d^2], {0, 1, 4, 9}]] == {0, 1, 4, 9}, a = Append[a, d^2]], {n, 0, 3*10^4}]; a

Crossrefs

a(n) = A077439(n)^2.

Cf. A019544, A000290, A046030.

Sequence in context: A192937 A029798 A029775 * A181412 A029794 A029801

Adjacent sequences: A077437 A077438 A077439 * A077441 A077442 A077443

Keyword

nonn,base

Author

Reinhard Zumkeller, Nov 06 2002

Extensions

Edited by Robert G. Wilson v, Nov 08 2002

Status

approved