login
A052046
Squares whose digits occur with the same frequency.
11
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
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 *)
KEYWORD
nonn,base,less
AUTHOR
Patrick De Geest, Dec 15 1999
EXTENSIONS
Offset corrected by Michel Marcus, Aug 12 2015
STATUS
approved