|
|
A305734
|
|
Integers m such that m, m^2 and m^3 are all distinct-digit numbers.
|
|
0
|
|
|
0, 1, 2, 3, 4, 5, 6, 8, 9, 13, 16, 17, 18, 19, 24, 27, 29, 32, 59, 69, 73, 84, 93, 203, 289, 302
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
m must be <= 2154, since for m > 2154, m^3 has more than 10 digits and thus at least one digit in m^3 is repeated. - Felix Fröhlich, Jun 22 2018
|
|
LINKS
|
|
|
EXAMPLE
|
{289, 289^2, 289^3} = {289, 83521, 24137569},
{302, 302^2, 302^3} = {302, 91204, 27543608}.
|
|
MATHEMATICA
|
Select[Range[0, 400], Max[DigitCount[#]]==Max[DigitCount[#^2]]== Max[ DigitCount[ #^3]] == 1&] (* Harvey P. Dale, May 15 2022 *)
|
|
PROG
|
(PARI) is(n) = vecsort(digits(n))==vecsort(digits(n), , 8) && vecsort(digits(n^2))==vecsort(digits(n^2), , 8) && vecsort(digits(n^3))==vecsort(digits(n^3), , 8) \\ Felix Fröhlich, Jun 22 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|