%I #20 May 05 2019 15:20:46
%S 0,1,4,9,16,25,36,49,64,81,169,196,256,289,324,361,529,576,625,729,
%T 784,841,961,1024,1089,1296,1369,1764,1849,1936,2304,2401,2601,2704,
%U 2809,2916,3025,3249,3481,3721,4096,4356,4761,5041,5184,5329,5476,6084,6241
%N Squares whose digits occur with the same frequency.
%C Contains all members of A078255 that are < 10^10. 7744 is the first member that is not a member of A078255. - _David Wasserman_, Jun 27 2006
%H Robert Israel, <a href="/A052046/b052046.txt">Table of n, a(n) for n = 1..10000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/samedigits.htm">Numbers whose digits occur with same frequency</a>
%p filter:= proc(n) local L,M;
%p L:= convert(n,base,10);
%p M:= {seq(numboccur(i,L),i=0..9)} minus {0};
%p nops(M) = 1
%p end proc:
%p select(filter, [seq(i^2,i=0..200)]); # _Robert Israel_, Jan 08 2018
%t t={}; Do[If[Length[DeleteDuplicates[Transpose[Tally[IntegerDigits[n^2]]][[2]]]] == 1, AppendTo[t,n^2]], {n,0,80}]; t (* _Jayanta Basu_, May 10 2013 *)
%t sfQ[n_]:=Length[Union[Select[DigitCount[n],#!=0&]]]==1; Select[ Range[ 0,80]^2,sfQ] (* _Harvey P. Dale_, May 05 2019 *)
%Y Cf. A045540, A052047, A052048, A052049, A052050, A052051, A052052.
%Y Cf. A078255.
%K nonn,base,less
%O 1,3
%A _Patrick De Geest_, Dec 15 1999
%E Offset corrected by _Michel Marcus_, Aug 12 2015
|