This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A308708 #47 Sep 08 2022 08:46:21 %S A308708 5,6,8,9,14,15,36,62,92,101,173,192,211,888,1001,3543,10001,100001, %T A308708 110011,146796,1000001,10000001,100000001,1000000001,10000000001 %N A308708 Numbers k such that k^3 contains exactly three distinct digits; numbers with trailing zeros are excluded. %C A308708 10^k + 1 (A000533(k)) is a term for k >= 2. - _Jinyuan Wang_, Aug 02 2019 %e A308708 a(8) = 62 because 62^3 = 238328, which contains exactly three distinct digits. %t A308708 Select[Range[10001], Mod[#, 10] > 0 && Length@ Union@ IntegerDigits[#^3] == 3 &] (* _Giovanni Resta_, Sep 05 2019 *) %o A308708 (PARI) is(k) = #vecsort(digits(k^3), , 8)==3 && k%10!=0; \\ _Jinyuan Wang_, Aug 02 2019 %o A308708 (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 A308708 Cf. A000533, A202940, A030294, A052051. %K A308708 base,nonn,more %O A308708 1,1 %A A308708 _Andrej Jakobcic_, Aug 01 2019 %E A308708 More terms from _Jinyuan Wang_, Aug 02 2019 %E A308708 a(23)-a(25) from _Jon E. Schoenfield_, Aug 02 2019