A044952 - OEIS

%I #16 Oct 27 2025 06:42:00

%S 1,2,4,8,9,10,12,13,14,16,17,18,20,22,23,24,25,26,27,31,37,39,40,41,

%T 43,49,53,54,62,67,71,74,77,78,79,80,81,82,84,85,90,91,93,94,108,109,

%U 111,112,117,118,120,121,122,124,125,130,131,133,134,148,149,151,152,157

%N Positive numbers with no two equally numerous base 3 digits.

%H Robert Israel, <a href="/A044952/b044952.txt">Table of n, a(n) for n = 1..10000</a>

%p filter:= proc(n) local L,T;

%p   L:= convert(n,base,3);

%p   T:= Statistics:-Tally(L);

%p   nops(T) = nops(convert(map(rhs,T),set))

%p end proc:

%p Q:= select(filter, {$1..200});

%t A044952Q[k_] := DuplicateFreeQ[Tally[IntegerDigits[k, 3]][[All, 2]]];

%t Select[Range[200], A044952Q] (* _Paolo Xausa_, Oct 27 2025 *)

%Y Cf. A007089.

%K nonn,base

%O 1,2

%A _Clark Kimberling_