A044952 Positive numbers with no two equally numerous base 3 digits.

1, 2, 4, 8, 9, 10, 12, 13, 14, 16, 17, 18, 20, 22, 23, 24, 25, 26, 27, 31, 37, 39, 40, 41, 43, 49, 53, 54, 62, 67, 71, 74, 77, 78, 79, 80, 81, 82, 84, 85, 90, 91, 93, 94, 108, 109, 111, 112, 117, 118, 120, 121, 122, 124, 125, 130, 131, 133, 134, 148, 149, 151, 152, 157

Offset

1,2

Links

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

Maple

filter:= proc(n) local L, T;
  L:= convert(n, base, 3);
  T:= Statistics:-Tally(L);
  nops(T) = nops(convert(map(rhs, T), set))
end proc:
Q:= select(filter, {$1..200});

Mathematica

A044952Q[k_] := DuplicateFreeQ[Tally[IntegerDigits[k, 3]][[All, 2]]];
Select[Range[200], A044952Q] (* Paolo Xausa, Oct 27 2025 *)

Crossrefs

Cf. A007089.

Sequence in context: A379076 A131625 A196000 * A352831 A047466 A003485

Adjacent sequences: A044949 A044950 A044951 * A044953 A044954 A044955

Keyword

nonn,base

Author

Clark Kimberling

Status

approved