|
| |
|
|
A029773
|
|
Squares k^2 in which the digits of k appear.
|
|
1
|
|
|
|
0, 1, 25, 36, 100, 121, 625, 729, 2500, 3025, 3600, 3969, 4096, 4356, 5476, 5776, 9025, 9216, 9801, 10000, 10201, 11025, 12100, 12321, 12544, 13225, 13456, 15625, 19321, 20164, 39601, 42025, 44521, 49284, 50625, 53824, 62500, 65025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
MATHEMATICA
|
Select[Range[0, 300]^2, SubsetQ[IntegerDigits[#], IntegerDigits[Sqrt[#]]]&] (* Harvey P. Dale, Jan 18 2015 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
