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,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

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

Sequence in context: A229302 A067314 A066022 * A078831 A031177 A164119

Adjacent sequences: A052044 A052045 A052046 * A052048 A052049 A052050

Keyword

nonn,base

Author

Patrick De Geest, Dec 15 1999

Status

approved