%I #11 Dec 13 2018 12:33:29
%S 11,22,33,44,55,66,77,88,99,111,222,333,444,555,666,777,888,999,1001,
%T 1010,1100,1111,1122,1133,1144,1155,1166,1177,1188,1199,1212,1221,
%U 1313,1331,1414,1441,1515,1551,1616,1661,1717,1771,1818,1881,1919,1991,2002
%N Numbers where every digit that is present occurs more than once (not necessarily consecutively).
%C Through terms shown, this is also numbers where every digit present occurs the same number of times (not necessarily consecutively). The first number in this sequence not in that one is 10001.
%H Robert Israel, <a href="/A115853/b115853.txt">Table of n, a(n) for n = 1..10000</a>
%p filter:= proc(n)
%p local L,S;
%p L:= convert(n,base,10);
%p S:= convert(L,set);
%p min(seq(numboccur(i,L),i=S)) > 1
%p end proc:
%p select(filter, [$1..10000]); # _Robert Israel_, May 28 2014
%t edQ[n_]:=Min[Select[DigitCount[n],#!=0&]]>1; Select[Range[2100],edQ] (* _Harvey P. Dale_, Dec 13 2018 *)
%Y Cf. A033023, A014181.
%K base,nonn
%O 1,1
%A _Franklin T. Adams-Watters_, Mar 13 2006