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,3

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

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 *)

Crossrefs

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

Cf. A078255.

Sequence in context: A115743 A014186 A052062 * A078255 A077356 A077357

Adjacent sequences: A052043 A052044 A052045 * A052047 A052048 A052049

Keyword

nonn,base,less

Author

Patrick De Geest, Dec 15 1999

Extensions

Offset corrected by Michel Marcus, Aug 12 2015

Status

approved