|
%I #47 Sep 08 2022 08:46:21
%S 5,6,8,9,14,15,36,62,92,101,173,192,211,888,1001,3543,10001,100001,
%T 110011,146796,1000001,10000001,100000001,1000000001,10000000001
%N Numbers k such that k^3 contains exactly three distinct digits; numbers with trailing zeros are excluded.
%C 10^k + 1 (A000533(k)) is a term for k >= 2. - _Jinyuan Wang_, Aug 02 2019
%e a(8) = 62 because 62^3 = 238328, which contains exactly three distinct digits.
%t Select[Range[10001], Mod[#, 10] > 0 && Length@ Union@ IntegerDigits[#^3] == 3 &] (* _Giovanni Resta_, Sep 05 2019 *)
%o (PARI) is(k) = #vecsort(digits(k^3), , 8)==3 && k%10!=0; \\ _Jinyuan Wang_, Aug 02 2019
%o (Magma) [k:k in [1..10000001]| k mod 10 ne 0 and #Set(Intseq(k^3)) eq 3]; // _Marius A. Burtea_, Aug 02 2019
%Y Cf. A000533, A202940, A030294, A052051.
%K base,nonn,more
%O 1,1
%A _Andrej Jakobcic_, Aug 01 2019
%E More terms from _Jinyuan Wang_, Aug 02 2019
%E a(23)-a(25) from _Jon E. Schoenfield_, Aug 02 2019
|
