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

34, 194, 578, 866, 1889, 2017, 2434, 2722, 2897, 4993, 7393, 7394, 7841, 9826, 10562, 10882, 11777, 11969, 15074, 16993, 17282, 18818, 20129, 20417, 20849, 23041, 24322, 35426, 40193, 40289

Offset: 1

Author

Donald S. McDonald, Sep 04 2002

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A073761, A074827, A074900.

Programs

Maple

filter:= proc(n) local m,L,i;
  if n mod 4 = 0 then return false fi;
  if n::odd then
    m:= numtheory:-order(4,n);
    if m mod 4 <> 0 then return false fi;
    L:= convert(4^m+(4^m-1)/n,base,4)[1..m];
  else
    m:= numtheory:-order(4,n/2);
    if m mod 4 <> 0 then return false fi;
    L:= convert(4^m + 4*(4^m-1)/n,base,4)[1..m];
  fi;
  nops({seq(numboccur(i,L),i=0..3)}) = 1
end proc:
select(filter, [$3..10^5]); # Robert Israel, Dec 28 2020

Extensions

Corrected and extended by Robert G. Wilson v, Sep 06 2002