|
%I #17 May 15 2022 18:40:30
%S 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,
%T 302
%N Integers m such that m, m^2 and m^3 are all distinct-digit numbers.
%C 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
%e {289, 289^2, 289^3} = {289, 83521, 24137569},
%e {302, 302^2, 302^3} = {302, 91204, 27543608}.
%t Select[Range[0,400],Max[DigitCount[#]]==Max[DigitCount[#^2]]== Max[ DigitCount[ #^3]] == 1&] (* _Harvey P. Dale_, May 15 2022 *)
%o (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
%Y Cf. A010784.
%K nonn,base,fini,full
%O 1,3
%A _Zak Seidov_, Jun 22 2018
|
