A171586 Squares divisible by at least two of their distinct digits >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

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Cf. A161851, A171584.

Sequence in context: A092643 A045786 A237128 * A017594 A014800 A213124

Adjacent sequences: A171583 A171584 A171585 * A171587 A171588 A171589

Keyword

base,nonn

Author

Zak Seidov, Dec 12 2009

Status

approved