login
A052047
Numbers k such that the digits of k^3 occur with the same frequency.
10
0, 1, 2, 3, 4, 5, 6, 8, 9, 11, 12, 13, 16, 17, 18, 19, 21, 22, 24, 27, 29, 32, 35, 38, 41, 59, 62, 66, 69, 73, 75, 76, 84, 88, 93, 97, 135, 145, 203, 289, 297, 302, 303, 319, 888, 1412, 1694, 2078, 4755, 5399, 6181, 6274, 6443, 9078, 9413, 9709, 22111, 22819
OFFSET
1,3
MAPLE
filter:= proc(n) local L, V, k;
L:= convert(n^3, base, 10);
V:= {seq(numboccur(k, L), k=0..9)};
nops(V minus {0}) = 1
end proc:filter(0):= true:select(filter, [$0..10000]); # Robert Israel, Mar 12 2020
MATHEMATICA
t={}; Do[If[Length[DeleteDuplicates[Transpose[Tally[IntegerDigits[n^3]]][[2]]]]==1, AppendTo[t, n]], {n, 0, 23000}]; t (* Jayanta Basu, May 11 2013 *)
Select[Range[0, 23000], Length[Union[DeleteCases[DigitCount[#^3], 0]]]==1&] (* Harvey P. Dale, Jun 14 2020 *)
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1999
STATUS
approved