A052050 Squares whose digits occur with an equal minimal frequency of 2.
7744, 228484, 332929, 339889, 511225, 698896, 774400, 776161, 797449, 11303044, 11464996, 15295921, 16621929, 22848400, 25775929, 27447121, 28826161, 33292900, 33454656, 33512521, 33988900, 34316164, 42549529, 45643536, 45859984, 47969476, 48177481, 50509449, 51122500
Offset: 1
Links
- Patrick De Geest, Numbers whose digits occur with same frequency
Programs
-
Mathematica
Select[Table[n^2, {n, 6760}], Union[Last[Transpose[Tally[IntegerDigits[#]]]]] == {2} &] (* Jayanta Basu, Jun 17 2013 *)
-
Python
from itertools import islice from collections import Counter def afull(): yield from (x**2 for x in range(10**10) if set(Counter(str(x**2)).values()) == {2}) print(list(islice(afull(), 47))) # Michael S. Branicky, May 12 2023
Comments