login
A054034
Numbers n such that n^2 contains exactly 6 different digits.
10
322, 323, 324, 328, 352, 353, 364, 367, 374, 375, 397, 403, 405, 413, 416, 425, 442, 445, 456, 458, 463, 487, 504, 507, 508, 509, 529, 542, 557, 564, 567, 571, 572, 574, 584, 589, 591, 593, 597, 598, 616, 618, 621, 625, 626, 629, 634, 637, 639, 645, 647
OFFSET
1,1
MAPLE
f := []; for i from 0 to 200 do if nops({op(convert(i^2, base, 10))})=6 then f := [op(f), i] fi; od; f;
MATHEMATICA
Select[Range[700], Count[DigitCount[#^2], 0]==4&] (* Harvey P. Dale, May 10 2021 *)
KEYWORD
nonn,base
AUTHOR
Asher Auel, Feb 29 2000
STATUS
approved