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

100, 101, 110, 200, 202, 220, 300, 303, 330, 400, 404, 440, 500, 505, 550, 600, 606, 660, 700, 707, 770, 800, 808, 880, 900, 909, 990, 1000, 1001, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1030, 1031

Offset

1,1

Comments

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).

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A079112 A210666 A280825 * A091254 A323823 A085251

Adjacent sequences: A233342 A233343 A233344 * A233346 A233347 A233348

Keyword

nonn,base

Author

Eric Angelini and M. F. Hasler, Dec 07 2013

Status

approved