|
%I #14 Oct 27 2023 22:00:46
%S 1017,1023,1024,1027,1028,1036,1037,1042,1113,1117,1164,1175,1176,
%T 1197,1228,1267,1268,1277,1302,1307,1323,1328,1343,1352,1355,1375,
%U 1395,1405,1428,1433,1441,1442,1444,1463,1541,1593,1594,1628,1646,1648,1701,1706
%N Numbers n such that n^2 contains exactly 7 different digits.
%H John Cerkan, <a href="/A054035/b054035.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))})=7 then f := [op(f),i] fi; od; f;
%t Select[Range[2000],Count[DigitCount[#^2],0]==3&] (* _Harvey P. Dale_, Jul 28 2012 *)
%Y Cf. A016069, A054031, A054032, A054033, A054034, A054036, A054037, A054038, A054039.
%K nonn,base
%O 1,1
%A _Asher Auel_, Feb 29 2000
|
