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
KEYWORD
nonn,base,less
AUTHOR
Patrick De Geest, Dec 15 1999
EXTENSIONS
Offset corrected by Michel Marcus, Aug 12 2015
STATUS
approved