|
%I #17 Aug 04 2022 15:52:59
%S 0,2,4,6,8,10,12,14,16,18,20,24,26,28,30,32,34,36,38,40,42,46,48,50,
%T 52,54,56,58,60,62,64,68,70,72,74,76,78,80,82,84,86,90,92,94,96,98,
%U 102,104,106,108,120,124,126,128,130,132,134,136,138,140,142,146
%N Even numbers with distinct digits.
%C Largest term is 9876543210. - _Alonso del Arte_, Jan 09 2020
%C There are 4493646 terms. - _Michael S. Branicky_, Aug 04 2022
%H Michael S. Branicky, <a href="/A029741/b029741.txt">Table of n, a(n) for n = 1..10000</a>
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/index.html">World!Of Numbers</a>
%t Select[2Range[0, 79], Max[DigitCount[#]] == 1 &] (* _Harvey P. Dale_, Dec 23 2013 *)
%o (Scala) def hasDistinctDigits(n: Int): Boolean = {
%o val numerStr = n.toString
%o val digitSet = numerStr.split("").toSet
%o numerStr.length == digitSet.size
%o }
%o (0 to 198 by 2).filter(hasDistinctDigits) // _Alonso del Arte_, Jan 09 2020
%o (Python) # generates full sequence
%o from itertools import permutations
%o afull = [0] + sorted(set(int("".join(p)) for d in range(1, 11) for p in permutations("0123456789", d) if p[0] != "0" and p[-1] in "02468"))
%o print(afull[:100]) # _Michael S. Branicky_, Aug 04 2022
%Y Cf. A029740 (odd version). Union of that sequence with this sequence gives A010784.
%K nonn,fini,base
%O 1,2
%A _Patrick De Geest_
%E Offset changed to 1 by _Michael S. Branicky_, Aug 04 2022
|
