A052047 Numbers k such that the digits of k^3 occur with the same frequency.

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

Author

Patrick De Geest, Dec 15 1999

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..500
• P. De Geest, Numbers whose digits occur with same frequency

Crossrefs

Cf. A052048, A045540, A052046, A052049, A052050, A052051, A052052.

Programs

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 *)