|
%I #28 Dec 13 2021 11:43:01
%S 12,13,14,15,16,17,18,19,21,23,24,25,26,27,28,29,31,32,34,35,36,37,38,
%T 39,41,42,43,45,46,47,48,49,51,52,53,54,56,57,58,59,61,62,63,64,65,67,
%U 68,69,71,72,73,74,75,76,78,79,81,82,83,84,85,86,87,89,91,92,93,94,95,96,97,98,112,113,114,115,116,117,118,119,121,122,123
%N Numbers with at least two distinct digits in decimal representation, none of which is 0.
%C Also numbers having at least two partitions into digit values of their decimal representations: A061827(a(n)) > 1.
%C First differs from A101594 at a(83) = 123 != 131 = A101594(83). - _Michael S. Branicky_, Dec 13 2021
%H Reinhard Zumkeller, <a href="/A125290/b125290.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F A043537(A004719(a(n))) > 1.
%F A168046(a(n)) * A043537(A004719(a(n))) > 1. - _Reinhard Zumkeller_, Jun 18 2013
%F a(n) ~ n. - _Charles R Greathouse IV_, Feb 13 2017
%t Select[Range[100],Length[Union[Select[IntegerDigits[#],#!=0&]]]>1&] (* _Harvey P. Dale_, May 19 2018 *)
%o (Haskell)
%o a125290 n = a125290_list !! (n-1)
%o a125290_list = filter ((> 1) . a043537) a052382_list
%o -- _Reinhard Zumkeller_, Jun 18 2013
%o (Python)
%o def ok(n): s = set(str(n)); return len(s) >= 2 and "0" not in s
%o print([k for k in range(124) if ok(k)]) # _Michael S. Branicky_, Dec 13 2021
%Y Subsequence of A052382. Supersequence of A101594.
%Y Cf. A125293, A004719, A043537, A061827, A168046.
%K nonn,base,easy
%O 1,1
%A _Reinhard Zumkeller_, Nov 26 2006
%E Name clarified by _Michael S. Branicky_, Dec 13 2021
|
