|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|