A305734 Integers m such that m, m^2 and m^3 are all distinct-digit numbers.

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

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

Table of n, a(n) for n=1..26.

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

Cf. A010784.

Sequence in context: A276765 A121644 A259623 * A002242 A317676 A039125

Adjacent sequences: A305731 A305732 A305733 * A305735 A305736 A305737

Keyword

nonn,base,fini,full

Author

Zak Seidov, Jun 22 2018

Status

approved