cp's OEIS Frontend

A074709 Base 4 expansion of 1/n has equal percentage of each digit 0,1,2,3.

%I A074709 #10 Dec 28 2020 22:02:05
%S A074709 34,194,578,866,1889,2017,2434,2722,2897,4993,7393,7394,7841,9826,
%T A074709 10562,10882,11777,11969,15074,16993,17282,18818,20129,20417,20849,
%U A074709 23041,24322,35426,40193,40289
%N A074709 Base 4 expansion of 1/n has equal percentage of each digit 0,1,2,3.
%H A074709 Robert Israel, <a href="/A074709/b074709.txt">Table of n, a(n) for n = 1..252</a>
%p A074709 filter:= proc(n) local m,L,i;
%p A074709   if n mod 4 = 0 then return false fi;
%p A074709   if n::odd then
%p A074709     m:= numtheory:-order(4,n);
%p A074709     if m mod 4 <> 0 then return false fi;
%p A074709     L:= convert(4^m+(4^m-1)/n,base,4)[1..m];
%p A074709   else
%p A074709     m:= numtheory:-order(4,n/2);
%p A074709     if m mod 4 <> 0 then return false fi;
%p A074709     L:= convert(4^m + 4*(4^m-1)/n,base,4)[1..m];
%p A074709   fi;
%p A074709   nops({seq(numboccur(i,L),i=0..3)}) = 1
%p A074709 end proc:
%p A074709 select(filter, [$3..10^5]); # _Robert Israel_, Dec 28 2020
%Y A074709 Cf. A073761, A074827, A074900.
%K A074709 nonn,base
%O A074709 1,1
%A A074709 _Donald S. McDonald_, Sep 04 2002
%E A074709 Corrected and extended by _Robert G. Wilson v_, Sep 06 2002