A308708 Numbers k such that k^3 contains exactly three distinct digits; numbers with trailing zeros are excluded.

5, 6, 8, 9, 14, 15, 36, 62, 92, 101, 173, 192, 211, 888, 1001, 3543, 10001, 100001, 110011, 146796, 1000001, 10000001, 100000001, 1000000001, 10000000001

Offset

1,1

Comments

10^k + 1 (A000533(k)) is a term for k >= 2. - Jinyuan Wang, Aug 02 2019

Links

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

Example

a(8) = 62 because 62^3 = 238328, which contains exactly three distinct digits.

Mathematica

Select[Range[10001], Mod[#, 10] > 0 && Length@ Union@ IntegerDigits[#^3] == 3 &] (* Giovanni Resta, Sep 05 2019 *)

Prog

(PARI) is(k) = #vecsort(digits(k^3), , 8)==3 && k%10!=0; \\ Jinyuan Wang, Aug 02 2019
(Magma) [k:k in [1..10000001]| k mod 10 ne 0 and  #Set(Intseq(k^3)) eq 3]; // Marius A. Burtea, Aug 02 2019

Crossrefs

Cf. A000533, A202940, A030294, A052051.

Sequence in context: A342781 A187843 A155146 * A125251 A271728 A247047

Adjacent sequences: A308705 A308706 A308707 * A308709 A308710 A308711

Keyword

base,nonn,more

Author

Andrej Jakobcic, Aug 01 2019

Extensions

More terms from Jinyuan Wang, Aug 02 2019

a(23)-a(25) from Jon E. Schoenfield, Aug 02 2019

Status

approved