OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..500
P. De Geest, Numbers whose digits occur with same frequency
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1999
STATUS
approved