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,1

Links

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

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

Crossrefs

Cf. A073761, A074827, A074900.

Sequence in context: A032771 A269237 A200256 * A074900 A302227 A058581

Adjacent sequences: A074706 A074707 A074708 * A074710 A074711 A074712

Keyword

nonn,base

Author

Donald S. McDonald, Sep 04 2002

Extensions

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

Status

approved