A044953 Numbers with no two equally numerous base 4 digits.

1, 2, 3, 5, 10, 15, 16, 17, 20, 21, 22, 23, 25, 26, 29, 31, 32, 34, 37, 38, 40, 41, 42, 43, 46, 47, 48, 51, 53, 55, 58, 59, 60, 61, 62, 63, 64, 69, 81, 84, 85, 86, 87, 89, 93, 101, 106, 117, 127, 128, 138, 149, 154, 162, 166, 168, 169, 170

Offset

1,2

Links

Table of n, a(n) for n=1..58.

Mathematica

ntb4Q[n_]:=Module[{d=DeleteCases[DigitCount[n, 4], 0]}, Length[d] == Length[ Union[d]]]; Select[Range[200], ntb4Q] (* Harvey P. Dale, Jun 22 2013 *)

Crossrefs

Sequence in context: A004681 A338589 A222406 * A297130 A044815 A048301

Adjacent sequences: A044950 A044951 A044952 * A044954 A044955 A044956

Keyword

nonn,base

Author

Clark Kimberling

Status

approved