A182040 Integers whose decimal representation consists of three distinct digits, one appearing once, one appearing twice, and one appearing three times.

100012, 100013, 100014, 100015, 100016, 100017, 100018, 100019, 100021, 100022, 100031, 100033, 100041, 100044, 100051, 100055, 100061, 100066, 100071, 100077, 100081, 100088, 100091, 100099, 100102, 100103, 100104, 100105, 100106, 100107, 100108, 100109, 100112

Offset

1,1

Comments

There are 38880 terms, including 41 squares (A182098) and 3640 primes (A182092). - Zak Seidov, Apr 12 2012

This is the subsequence of A218556 consisting of terms with indices n = 254, ..., 39133. The number of terms is 38880 = A218566(10,3), the starting index is 254 = 1 + A218566(10,1) + A218566(10,2) + 1. - M. F. Hasler, Nov 02 2012

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..38880 (complete sequence)

Mathematica

t = Select[Range[100000, 999999], Sort[Transpose[Tally[IntegerDigits[#]]][[2]]] == {1, 2, 3} &]; Take[t, 32] (* T. D. Noe, Apr 11 2012 *)

Prog

(PARI) is(n)=n=vecsort(eval(Vec(Str(n)))); vecsort(apply(k->sum(i=1, #n, n[i]==k), vecsort(n, , 8)))==[1, 2, 3] \\ Charles R Greathouse IV, Apr 11 2012

Crossrefs

Cf. A071925, A181986 (digitally balanced numbers: ternary numbers which have the same number of 0's as 1's as 2's), A182051 (primes with a majority of one digit).

Sequence in context: A165297 A249854 A237233 * A120216 A119902 A182092

Adjacent sequences: A182037 A182038 A182039 * A182041 A182042 A182043

Keyword

nonn,base,fini,full,easy

Author

Jonathan Vos Post, Apr 09 2012

Status

approved