login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052046 Squares whose digits occur with the same frequency. 10

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 08:02 EDT 2024. Contains 371236 sequences. (Running on oeis4.)