A233345 - OEIS

A233345

Numbers having at least one digit 0 and at least two identical digits (which may be two 0's), in their decimal expansion.

%I #9 Jul 26 2017 18:16:41

%S 100,101,110,200,202,220,300,303,330,400,404,440,500,505,550,600,606,

%T 660,700,707,770,800,808,880,900,909,990,1000,1001,1002,1003,1004,

%U 1005,1006,1007,1008,1009,1010,1011,1012,1013,1014,1015,1016,1017,1018,1019,1020,1021,1022,1030,1031

%N Numbers having at least one digit 0 and at least two identical digits (which may be two 0's), in their decimal expansion.

%C Original definition: Numbers such that any (base-10) digit d[i] is the difference of two distinct digits d[j] and d[k] (where "distinct" means j <> k).

%H Harvey P. Dale, <a href="/A233345/b233345.txt">Table of n, a(n) for n = 1..1000</a>

%t otQ[n_]:=Module[{c=DigitCount[n]},Last[c]>0&&Max[c]>1]; Select[Range[ 1200],otQ] (* _Harvey P. Dale_, Jul 26 2017 *)

%o (PARI) is(n)=for(i=2,#n=vecsort(digits(n)),n[i]==n[i-1]&&return(!n[1]))

%K nonn,base

%O 1,1

%A _Eric Angelini_ and _M. F. Hasler_, Dec 07 2013