|
|
A171586
|
|
Squares divisible by at least two of their distinct digits >1.
|
|
1
|
|
|
36, 324, 784, 1024, 1296, 1764, 2304, 2500, 2704, 2916, 3249, 3600, 3969, 4356, 4624, 5184, 6084, 6724, 7056, 8464, 9216, 11664, 12544, 12996, 13689, 13924, 15876, 16384, 17424, 18496, 19044, 20164, 20736, 21904, 22500, 23104, 23409, 23716
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
36=3*12=6*6
324=3*108=4*81
784=7*112=4*198.
|
|
MATHEMATICA
|
dddQ[n_]:=Module[{dv=Union[Select[IntegerDigits[n], #>1&]]}, Count[n/dv, _?IntegerQ]>1]; Select[Range[200]^2, dddQ] (* Harvey P. Dale, Oct 20 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|