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
Examples
a(8) = 62 because 62^3 = 238328, which contains exactly three distinct digits.
Programs
-
Magma
[k:k in [1..10000001]| k mod 10 ne 0 and #Set(Intseq(k^3)) eq 3]; // Marius A. Burtea, Aug 02 2019
-
Mathematica
Select[Range[10001], Mod[#, 10] > 0 && Length@ Union@ IntegerDigits[#^3] == 3 &] (* Giovanni Resta, Sep 05 2019 *)
-
PARI
is(k) = #vecsort(digits(k^3), , 8)==3 && k%10!=0; \\ Jinyuan Wang, Aug 02 2019
Extensions
More terms from Jinyuan Wang, Aug 02 2019
a(23)-a(25) from Jon E. Schoenfield, Aug 02 2019
Comments