A115853 Numbers where every digit that is present occurs more than once (not necessarily consecutively).

11, 22, 33, 44, 55, 66, 77, 88, 99, 111, 222, 333, 444, 555, 666, 777, 888, 999, 1001, 1010, 1100, 1111, 1122, 1133, 1144, 1155, 1166, 1177, 1188, 1199, 1212, 1221, 1313, 1331, 1414, 1441, 1515, 1551, 1616, 1661, 1717, 1771, 1818, 1881, 1919, 1991, 2002

Offset: 1

Author

Franklin T. Adams-Watters, Mar 13 2006

Keywords

• base
• nonn

Comments

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.

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A033023, A014181.

Programs

Maple

filter:= proc(n)
local L,S;
L:= convert(n,base,10);
S:= convert(L,set);
min(seq(numboccur(i,L),i=S)) > 1
end proc:
select(filter, [$1..10000]); # Robert Israel, May 28 2014

Mathematica

edQ[n_]:=Min[Select[DigitCount[n],#!=0&]]>1; Select[Range[2100],edQ] (* Harvey P. Dale, Dec 13 2018 *)