|
%I #15 Aug 15 2015 14:24:01
%S 1,2,3,4,5,6,7,8,9,13,14,16,17,18,19,23,24,25,27,28,29,31,32,33,36,37,
%T 42,43,44,48,49,51,52,53,54,55,57,59,61,64,66,69,71,72,73,74,78,79,82,
%U 84,86,87,88,89,93,95,96,98,99,113,116,117,118,124,126,128,133,134,136
%N Numbers whose square contains an equal number of each digit that it contains.
%C The sequence is expected to be infinite. Heuristically, if m is divisible by 10 there should be approximately constant * 10^(m/2)/m^(9/2) m-digit squares where all 10 digits have frequency m/10. - _Robert Israel_, Aug 14 2015
%H Robert Israel, <a href="/A045540/b045540.txt">Table of n, a(n) for n = 1..3000</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 x,i,P;
%p P:= add(x^i, i=convert(n^2,base,10));
%p nops({coeffs(P,x)}) = 1
%p end proc:
%p select(filter, [$1..10^4]); # _Robert Israel_, Aug 14 2015
%t t={}; Do[If[Length[DeleteDuplicates[Transpose[Tally[IntegerDigits[n^2]]][[2]]]]==1,AppendTo[t,n]],{n,136}]; t (* _Jayanta Basu_, May 10 2013 *)
%Y Cf. A052046, A052047, A052048, A052049, A052050, A052051, A052052, A052060.
%K base,nonn
%O 1,2
%A _Erich Friedman_
|
