A054034 Numbers n such that n^2 contains exactly 6 different digits.
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
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
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 *)