%I #14 Oct 27 2023 22:00:46

%S 322,323,324,328,352,353,364,367,374,375,397,403,405,413,416,425,442,

%T 445,456,458,463,487,504,507,508,509,529,542,557,564,567,571,572,574,

%U 584,589,591,593,597,598,616,618,621,625,626,629,634,637,639,645,647

%N Numbers n such that n^2 contains exactly 6 different digits.

%H John Cerkan, <a href="/A054034/b054034.txt">Table of n, a(n) for n = 1..10000</a>

%p 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;

%t Select[Range[700],Count[DigitCount[#^2],0]==4&] (* _Harvey P. Dale_, May 10 2021 *)

%Y Cf. A016069, A054031, A054032, A054033, A054035, A054036, A054037, A054038, A054039.

%K nonn,base

%O 1,1

%A _Asher Auel_, Feb 29 2000