A052046 Squares whose digits occur with the same frequency.

0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 169, 196, 256, 289, 324, 361, 529, 576, 625, 729, 784, 841, 961, 1024, 1089, 1296, 1369, 1764, 1849, 1936, 2304, 2401, 2601, 2704, 2809, 2916, 3025, 3249, 3481, 3721, 4096, 4356, 4761, 5041, 5184, 5329, 5476, 6084, 6241

Offset: 1

Author

Patrick De Geest, Dec 15 1999

Keywords

• nonn
• base
• less

Comments

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

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• P. De Geest, Numbers whose digits occur with same frequency

Crossrefs

Cf. A045540, A052047, A052048, A052049, A052050, A052051, A052052.

Cf. A078255.

Programs

Maple

filter:= proc(n) local L,M;
  L:= convert(n,base,10);
  M:= {seq(numboccur(i,L),i=0..9)} minus {0};
  nops(M) = 1
end proc:
select(filter, [seq(i^2,i=0..200)]); # Robert Israel, Jan 08 2018

Mathematica

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 *)
sfQ[n_]:=Length[Union[Select[DigitCount[n],#!=0&]]]==1; Select[ Range[ 0,80]^2,sfQ] (* Harvey P. Dale, May 05 2019 *)

Extensions

Offset corrected by Michel Marcus, Aug 12 2015