OFFSET
1,1
COMMENTS
There are A225428(10) = 597959 terms in this sequence. The last term is 9994363488, whose square is 99887301530267526144 = A052050(597959). - Hugo Pfoertner, May 12 2023
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..5000
Patrick De Geest, Numbers whose digits occur with same frequency
EXAMPLE
577^2 = 332929, which contains each of its digits (2, 3, and 9) twice, so 577 is in this sequence.
MAPLE
isA052049 := proc(n) local d, k, fr, eqfr: d:=convert(n^2, base, 10): eqfr:=true: fr:=numboccur(d[1], d): if(fr=1)then return false: fi: for k from 0 to 9 do if(not member(numboccur(k, d), {fr, 0}))then eqfr:=false: break: fi: od: return eqfr: end: seq(`if`(isA052049(n), n, NULL), n=1..9800); # Nathaniel Johnston, Jun 02 2011
MATHEMATICA
ta[n_]:=DeleteDuplicates[Transpose[Tally[IntegerDigits[n^2]]][[2]]]; t ={}; Do[If[Length[x=ta[n]]==1 && x[[1]]>=2, AppendTo[t, n]], {n, 9800}]; t (* Jayanta Basu, May 11 2013 *)
CROSSREFS
KEYWORD
nonn,base,fini
AUTHOR
Patrick De Geest, Dec 15 1999
STATUS
approved