|
Search: id:A077440
|
|
|
| A077440 |
|
Squares and their roots having square decimal digits. |
|
+0
2
|
|
| 0, 1, 100, 10000, 1000000, 1100401, 100000000, 110040100, 10000000000, 10100049001, 11004010000, 1000000000000, 1010004900100, 1100401000000, 100000000000000, 100100004990001, 101000490010000, 110040100000000
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
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.
Adjacent sequences: A077437 A077438 A077439 this_sequence A077441 A077442 A077443
Sequence in context: A108741 A029798 A029775 this_sequence A029794 A029801 A098608
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Nov 06 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 08 2002
|
|
|
Search completed in 0.002 seconds
|
